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1. INTRODUCTION 


GENERAL 


This manual is a reference guide for the preparation of specification forms used by 
the UNIVAC 9400 Tape and Disc Report Program Generator (RPG). RPG provides an 
efficient technique for generating programs and processing data as specified by these 
forms, 


The manual assumes some basic familiarity with the principles of RPG programming, 
such as that provided by the publication Introduction to RPG, UP-4149 (current ver- 
sion). 


DESCRIPTION OF RPG 


The Report Program Generator is basedon a series of interrelated specification forms 
that define the operating parameters of the system for a given processing function. 
The contents of the six specification forms are keypunched to produce the source 
program which is introduced into the RPG compiler through standard job control pro- 
cedures of the Disc or Tape Operating System. From this source program, the RPG 
generates an object program which is stored in its entirety in the computer process- 
ing unit where it controls the internal operation of the computer system to produce a 
report or any other specified output. 


RPG OPERATION 


Through the facilities of the Operating System the object program can be saved on 
magnetic tape or disc. Thus, the object program can be used for future runs to elimi- 
nate unnecessary regeneration of object code. Figure 1-1 illustrates the system flow. 


Every record processed by the Report Program Generator goes through the same two- 
phase cycle of operation. One phase is referred to as detail time and the other phase 
as total time. All operations specified on the Calculation Specifications and Output 

Format Specifications forms pass through both phases. 


Figure 1-2 shows one complete cycle of processing a simple RPG object program — 
one input file and one printer output file. The steps in the description are numbered 
to correspond to the box numbers. 
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OPERATION 


An input record is read into the system. 


The object program uses the record identification code to identify the 
record read in step 1 by scanning each record description on the Input 
Format Specifications form. When the record is identified, the associated 
record indicator is set. 


The object program checks for control level breaks by using the control 
level information provided in the record identified in step 2. All fields for 
this record with a control level entry on the input form are checked for a 
control break, When a break is found, the program sets the associated in- 
dicator and all lower control level indicators. 


NOTE: A control level break for any level occurs the first time that an 
input record is read which contains a control field for the given 
level. 


The program peforms all calculations appropriate to the control level 
breaks that have occurred. These calculations prepare for the output of 
total information to be produced at every control break (ignored on 
initialization of the object program). 


The total output records are produced (ignored on initialization of the 
object program). If form overflow has occurred, then an overflow indicator 
is set. 


NOTE: A control level break for any level occurs the first time that an 
input record is read which contains a control field for the given 
level. 


The program tests the last record indicator. If the indicator is not set, 
record processing continues. If the indicator is set and the first page (1P) 
indicator isnot set, the program ends. However, if the 1P indicator is also 
set, the program continues with step 9. 


Overflow output lines whose output indicators are satisfied are now pro- 
duced. Total lines are output before detail lines. 


This step is not performed in 9200/9300 mode programs (see 1.5). 
Instead, overflow output for this mode is produced in steps (5) and 


(10). 


The fields of the input record are moved to working storage. This is the 
first time that the values of these fields become available for program 
processing. 


The detail time calculations appropriate to the input recor§ become avail- 
able for program processing, 


Heading and detail information is printed. The programmer controls this 
printing by means of the overflow, 1P, or other appropriate indicators, 
Headings are produced only at the top of a page. 
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If an overflow indicator was set previously, it is now reset, This step, in 


conjunction with step 5, guarantees that after form overflow has occurred 
the following operations will take place: 


(a) Any totals appropriate to the page are printed at the bottom of the page. 
(b) Any heading information is printed at the top of the next page. 


(c) The overflow indicator remains on for one complete detail time 
(steps 9 and 10). 


(d) If form overflow occurs during detail time output, the overflow indicator 
is on during one complete total time (steps 4 and 5). 


If form overflow has occurred during the detail output time of this program 
cycle, the appropriate overflow indicators are set. 


NOTE: Execution of the RPG object program actually begins at step 10. 
Thus, heading information may be printed on the first page by 
means of the 1P indicator. Each detail output operation must be 
conditioned by an indicator (which will be in the reset state when 
the object program is initiated) so that no detail output is produced 
until an input record has been read. All tables that are to be used 
by the object program are read into memory before any heading in- 
formation is produced. 


The 1P (first page) indicator is reset. 


The program tests the halt indicators (HO-H9). If no halt indicators are set, 
record processing continues. If any halt indicator is set and the first page 
(1P) indicator is not set, the program ends, If the 1P indicator is also set, 
the program continues with step 9. 


All control level indicators are reset in preparation for the next program 
operation cycle. 


A check is made for the end of the input file; if not detected, control re- 
turns to step 1 to begin the next program operation cycle, 


If end-of-file condition is detected, the last record indicator and all control 
level indicators are set because end-of-file condition signifies a control 
break on all levels, Total time is then performed (steps 4 and 5) to pro- 
duce the final total output, and the program terminates. 


NOTE: 1. After the final total output, any tables which are to be 
produced as output are written before the program is terminated. 


2. When execution of an RPG object program is initiated, all 
alphanumeric fields defined for the program are set initially 
to blanks, and all numeric fields to +0. J 
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1.4. DISC FILE RPG CONCEPTS 


A number of concepts related to the use of disc files in the RPG are not associated 
with card and tape processing. This section describes the following areas related to 
disc: 


mw Two ways of organizing a file on disc. 


m Sequential and nonsequential methods of accessing records, 


a Chaining (linking two or more files for processing). 


w Updating a disc file. 


Disc entries on RPG forms are discussed in the sections of this manual describing 
the specific RPG forms. 


1.4.1. 


File Organization 


Records in a card or a tape file are usually in a physical sequence based on a 
sorting of a field in the records. This is the sequence in which records in these 
files can be processed most efficiently. 


Records in a disc file can also be set up and processed in the same manner. How- 
ever, an advantage of using a disc file is the capability of establishing files which 
permit records to be processed on a nonsequentiai basis without necessarily proc- 
essing an entire file. That is, records can be retrieved from randomly selected 
locations in a file, or records may be retrieved in sequence but within defined limits. 


A file on disc is organized in either of two forms: as a sequential file, or as an 
indexed sequential file. The RPG programmer is not directly concerned with setting 
up disc files; however the file organization type must be known. This is necessary 
so that appropriate codes or entries can be specified on the RPG forms. The codes 
specified inform the RPG compiler of the file type that is to be created on disc or 
processed if the file is already on disc. 


The organization of files is discussed followed by an explanation of how the pro- 
grammer can select the method of retrieving a record from the file. 


1.4.1.1. Sequential File Organization 


Records in a file which is organized in a sequential manner are loaded on disc in 
the physical order in which they were sorted. This file is essentially the same as 
a card ot atape file. The RPG processor retrieves records in sequence starting 
with the first record and ending with the last record in the file. (Unsorted disc, 
tape, or card files may also be processed sequentially by RPG object programs.) 


1.4.1.2. Indexed Sequential File Organization 


Records in a file which is organized in an indexed sequential manner are loaded 
on the disc in the physical order in which they were sorted. In addition, an index 
to the file, created by the processor when the file was loaded, i¥ loaded on the 
disc. This index is a list of items, each containing the key and the disc address 
of certain records in the file. (The key is the value in the record field that is 
used by the sort to position the record in the file.) 
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To retrieve a record, the processor determines the approximate location of the 


record by searching the keys in the index. The processor then examines this 
location to find the precise record required. Thus, the index provides the 
processor with a technique of locating a record in a file without the necessity of 
a sequential search starting at the beginning of the file. 


1.4.2. Record Retrieval 


The following paragraphs describe how records can be accessed for processing, 
The programmer may select any of the following methods of record retrieval: 


= Sequential 
m Sequential between specified limits 
a Random 


An indexed sequential file can be processed by any of the three methods; a se- 
quential file can be processed either sequentially or randomly. 


1.4.2.1. Record Retrieval in a Sequential File 


Records in a sequential file can be accessed in the sorted or unsorted sequence 
originally established, or randomly on the basis of some selected field in a 
record. For random record selection, the file does not have to be physically 
resequenced, Instead, a special additional file called a tag file, created by the 
user, must be employed. The tag file is a file of disc addresses, each address 
specifying the location on disc of a given record. The addresses in a tag file 
are processed in sequence and the associated records are retrieved from random 
locations on disc. (The tag file is used only with a sequentially organized file, 
and only one tag file may be used in a program.) 


For example, the records in a file originally sorted on employee number can be 
accessed in order of social security number by creating a tag file based on the 
social security field in a record. 


1.4.2.2, Record Retrieval in an Indexed Sequential File 


In addition to sequential accessing, records in an indexed sequential file can be 
accessed between specified limits within the file or can be accessed randomly. 
This is accomplished by use of a record address (RA) file created by the user. 
(This file is used only with an indexed sequential file.) The RA file consists of 
keys (data fields from records) corresponding to keys in the index created for the 
indexed sequential file. The field, which makes up the keys, can be on punched 
cards, Thus, one or more groups of limits between which records are to be 
accessed or a list of records to be accessed randomly may be specified. 


For example, assume that records are organized in ascending order according to 
department number ranging from 200 through 600. If desired, the programmer can 
create an RA file specifying 202 and 210 in one record and 400 in a second 
record, This RA file, specifying limits, indicates that recordW from departments 
202 through 210 and department 400 are to be processed, 
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An RA file, created for random selection of records also contains keys entered 
in the records. The keys (as in previous example) may appear in the following 
order: 600, 310, 205, and 308. meee 


During program execution, the RA file is processed in sequence. The RPG 
processor compares a key field in the RA file to key fields in the index to find 
the record. A search then locates the exact record containing the key field. 


The following rules apply in using an RA file: 


(1) Only one RA file can be used in an RPG program. An RA file is not permitted 
if a tag file is used in the program. 


(2) The file to be accessed on the basis of an RA file must be specified as a 
primary file. 


(3) A numeric RA field cannot be packed. 


(4) For specifying limits, only two keys (fields) may appear in a record; the first 
specifies a lower limit and the second specifies an upper limit. The lower 
limit must start in the first position of a record and the upper limit must 
start in a position immediately following the lower limit. 


(5) For specifying random access, more than one key may appear in a record. An 
RA field containing blanks causes the remainder of the fields in that record 
to be skipped. 


(6) The contents of the current RA field are available to the user in a field with 
the predefined name CONTD., (This field is always treated as an RLABL. 
See 4.2.4.19.) 


See Section 6 for the coding of the RA field specifications in the File Extension 
form. 


Chaining 


Records in different files can be made available for concurrent processing by using 
a technique called chaining, For example, if several files exist, each containing 
records used in conjunction with records in the other files, and only two files are 
required for a particular processing application, they can be linked so as to make 
the record appear as one logical record, 


Linking records requires the contents of at least one field in a file to be the same 
as the key field in the other file. This field is called a chaining field. It can be 
any field in a record, Chaining is effected by using the contents of the chaining 
field as the key for locating records in the second file. 


The first file to be processed is called a chaining file, the other file is the chained 
file, A chained file must be an indexed sequential file and is on disc only; a chain- 
ing file may be either a sequential or an indexed sequential file. iisequential, it 
may be on card, tape, or disc, 
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A chained file may in turn chain to another chained file, and so forth. Also, a 

— single file may chain directly to two or more other files. There is no restriction 
on the number of chained files, except that the total number of input files is 
limited to nine. 


As an example, chaining can be done between a detail file containing part numbers 
and a price file containing prices with their associated part number. The field 
containing the part number in each record has a code, such as Cl, specified in an 
adjacent field on a RPG form. The code allows the processor to fink the detail file 
record to the price file record, Thus, price information is available to the RPG 
program as well as all other information in the price file record, 


Records in a chained file need not be in the same sequence as those in the chain- 
ing file. The records in a chained file can be accessed by the RPG processor on a 
random basis. The accessing of records in a chained file is performed automatical- 
ly by the processor, 


Keys in a chained file may be numeric or alphanumeric, If numeric, they must be in 
packed format and have valid signs. Numeric chaining fields in a chaining file are 
packed and altered, if necessary, to suit this requirement before the search of the 

chained file. 


1.4.4. Summary 


The following chart shows the relationship between file organization and methods 
a of record retrieval. 


FILE ORGANIZATION 


RECORD RETRIEVAL . = 
SEQUENTIAL INDEXED SEQUENTIAL 


Sequential Yes 


Sequential Within Limits Yes; with RA File 
Random Yes; with Tag File Yes; with RA File 
Chaining Yes 


Chained No 





1.4.5, Updating 


The updating of disc files which requires changes only in the contents of existing 
records does not require processing the entire file, Each record read from a dise 
file can be changed and then be written back into the file. The only restriction is 
that the value in the key field must not be changed, 


1.5. PROGRAM COMPATIBILITY 


UNIVAC 9400 RPG provides an expanded range of features in comParison with 
UNIVAC 9200 and 9300 RPG. However, UNIVAC 9200 and 9300 RPG programs 
written for card, tape, or disc systems can be compiled and executed on the UNIVAC 
9400. RPG programs for IBM System 360 Model 20 can also be compiled and executed. 
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In order to minimize any compatibility and conversion problems, the RPG compiler is 
designed to operate in any one of three modes: 


9200/9300 mode — for programs originally used with UNIVAC 9200 and UNIVAC — 
9300. 


IBM 360 Model 20 mode — for programs originally used with IBM System 360 
Model 20. 


9400 mode — recommended for all new programs, 


SUMMARY OF CONTENTS 


A brief explanation of the common fields for all RPG specifications forms is in- 
cluded in this section of the manual. The remainder of the manual treats each RPG 
specification form separately with an additional section on table handling. 


Section Title 





FILE DESCRIPTION FORM 

INPUT FORMAT SPECIFICATIONS FORM 
CALCULATION SPECIFICATIONS FORM 
OUTPUT FORMAT SPECIFICATIONS FORM 
FILE EXTENSION SPECIFICATIONS FORM 
LINE COUNTER SPECIFICATIONS FORM 
TABLE HANDLING 


ON aN BR WN 


In each section the individual entries are described in the following format (as ap- 
plicable): 


a Entry 

An entry may be required, optional, or conditional on other factors, 
ms Purpose 

A brief summary statement of the use and functions of the entry. 
a Codes 

Characters used to represent the specifications. 
ws Rules 

Requirements, constraints, and limitations for completing the entry. 
w Examples 


Illustrations using coding sheets and flow charts to represent practical applica- 


3; 


tions of RPG programs to specific problems, 
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In addition to the eight major sections, the following appendixes are included: 


APPENDIX A. SAMPLE PROGRAMS 

APPENDIX B. SUMMARY OF MODAL PROCESSING FEATURES 

APPENDIX C. SUMMARY OF PROGRAM INDICATORS 

APPENDIX D. STERLING NOTATION 

APPENDIX E. OPERATING CONSIDERATIONS 

APPENDIX F. RPG PROGRAM DIAGNOSTICS LISTING 

APPENDIX G. USER-CODED SUBROUTINES AND USE OF RPG ASA 
SUBROUTINE 

APPENDIX H. TAG FILES 


1.7. COMMON FIELDS FOR RPG SPECIFICATION FORMS 
The six RPG specification forms have certain common fields which have consistent 
entries within an RPG program. These fields and their respective entries are de- 
scribed here and are not repeated in the section for each specification form. 
1.7.1. Page Number (Columns 1-2) 
a Entry 
Optional. 
a Purpose 
Establishes proper numerical sequence of the pages of the specification forms. 
a Rules 


(1) It is recommended that gaps in page numbers be left between the various 
form types to permit easy insertion of additional pages of a specific type 
without upsetting page number sequences, 

1.7.2, Line Number (Columns 3-5) 
we Entry 
Optional (partially preprinted). 
m Purpose 

Sequentially numbers each specification line. The two leftmost digits are pre- 

printed, The units position is used by the programmer to insert specifications 

between two previously written lines. 


w Rules 


(1) Inserts should be numbered in ascending order when more §han one insert is 
entered between two previously written lines, 















UP-7707 





UNIVAC 9400 
REPORT PROGRAM GENERATOR 


12 


SECTION: 


1.7.3. Form Type (Column 6) 


Entry 
Required (except in comments records), 
Purpose 


Identifies each form, and the type of specification being entered. The codeis 
preprinted in Column 6 of each specification form. 


Codes 


H 


Header Card 


F 


File Description Specifications 


ica) 
| 


File Extension Specifications 


& 
| 


Line Counter Specifications 


{ 


Input Format Specifications 


Q 
I 


Calculation Specifications 


O — Output Format Specifications 

For compatibility with other RPG compilers, a T in Column 6 is accepted. ai 
(T indicates a Table Header Card introducing tables for UNIVAC 9200/9300 

RPG.) The first card encountered with T in Column 6 and the following cards 

in the source program are printed when a listing is made of the specification 

lines, but otherwise they are ignored by the RPG compiler. 


1.7.4. Comments (Column 7) 


a Entry 


Optional. 

Purpose 

Allows a comment record to be written at any point in the source stream on any 
RPG specification form. These entries are ignored by the RPG compiler, but are 
printed when a listing is made of the specification lines. 

Codes 

* — specifies comments. 

Rules 


(1) Comments may be entered from Column 8-74, 


(2) Column 6 of a comment record is ignored and may contain any EBCDIC 
character, including blank. 
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Program Identification (Columns 75-80) 


Entry 

Optional. 

Purpose 

Provides a way of identifying the source program. 

Codes 

One through six alphanumeric characters may be used. 

Example 

Figure 1-3 illustrates the identification of the second page of a program called 
PAYROL. The page number, line number, and program identification should be 
keypunched into every card to maintain the proper sequence of the card deck. 
The five blank lines at the bottom of each form allow the programmer to insert 
additional lines of coding without rewriting the entire page of specifications. 


To insert two lines of coding between lines 08 and 09, the programmer specifies 
081 and 082 under line number and writes in the proper line of coding. 
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2.1. GENERAL DESCRIPTION 
The File Description form (Figure 2-1) is used to assign a unique name to each file 
associated with an input or output unit used in the program. This form is also used 
to provide certain basic information about the files that are used by the program, 
REPORT PROGRAM GENERATOR 
FILE DESCRIPTION 
PR as a been ts elds PROGRAMMER na i erect DATE Se = PAGEL — OF 2. PAGES, 
FORM RA TYPE FILE ORGANIZATION 
EXTENSION LABELS FILE ADDITION CYLINDER OVERLOW 
P : oz LOGICAL UNIT NUMBER 
RECORD ra 8 DEVICE peas PROGRAM 
LENGTH <u UNIT. NAME OF IDENTIFICATION 
Cad NUMBER LABEL EXIT 









27 52 53454 


3 











Figure 2~1, File Description Form 


A maximum of 10 files may be used. There are additional restrictions on the number 
of various specific types of files as illustrated in Table 2-1. 


TYPE OF FILE 


Primary 

Secondary 

Record Address or Tag 
Chained 

Table 


Report Files 
Other Output Files 


Primary 
Secondary 
Chained 


Primary 


Combined Secondary 





Table 2-1. Number of Files Supported 
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2.2. FORM ENTRIES 


2 


PROGRAM 


The 


following descriptions explain each entry used on the File Description form and 


demonstrate their functions in relation to the RPG program. 


«2.1, 


File Name (Columns 7-14) 


Entry 
Required. 
Purpose 


Assigns a unique name to each input and output file. The file names entered in 
these columns must also be entered on the Input and Output Format Specifica- 
tions form, This makes all the information in the File Description form relating 
to this file available to the RPG program, 


Rules 


(1) The file name must be left-justified (to Column 7) and the first character 
must be alphabetic, 

NOTE: For this manual, the alphabetic characters are considered to be the 
letters A through Z, $, #,@, ?, and %. The numeric characters are 
0 through 9, All other characters, other than blank, are special 
characters, 

(2) The remaining characters may be alphabetic or numeric, but not special 
characters or spaces. 

(3) A maximum of eight characters may be used for a file name, but the first 
seven identify the file. In 9200/9300 mode, all eight characters identify 
the file. For example, WORKFIL1 and WORKFIL2 are considered the same 
file name. However, the entire eight-character file name entry is checked 
for syntactic validity. 


Example 


Figure 2—2 illustrates file name entries on a File Description form. 
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FILE ADDITION CYLINDER OVERLOW 


LOGICAL 
UNIT 
NUMBER 


RECORD 
LENGTH 


PROGRAM 
NAME OF IDENTIFICATION 


LABEL EXIT 








FIRE AD PIN:C.H 


iF,0| - 


yPLE 


1 wi aF LE 


BS ince aes 











0, 4 cE Pi 


RIN TOUT 


Yass od Cas etl all 





ie ae ae oo 





rs) bd le eT Saat EY CTR Et Bo 























Ca a ee (SU PRE 








Figure 2~2. Examples of Various File Description Entries 
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2.2.2. File Type (Column 15) 


aah a Entry 
Required. 
= Purpose 


Specifies the type of file defined on the line. 


# Codes 
I — Input. An input file consists either of data records or of table, record ad- 
dress, or tag files read from a specifiedinput device during object program 
execution, 


O — Output. An output file may either be a data file or a table file which is 
written, printed, or punched. 


C — Combined. A combined file consists of a card file read into the system and 
subsequently punched as output into the same cards that have been read or 
into blank cards inserted into the combined file. In addition to being punched, 
the blank cards must be identified as an input record type (see 3.2.5). 


U — Update. The update file is disc-oriented and is an input and output file, The 
file is an update file if the object program alters the data in one or mote 
fields of each record in the file. The revision made to these fields must not 


alter the nature of the data, the field length, or the field location. 


A chained file may be updated at detail and total time; all other files can be up- 
dated at detail time only. 


= Rules 

(1) Every RPG program must have at least one input file. 

(2) Files of different types may be listed in any order. 

(3) Blank or prepunched cards may be specified as an output file on the Type 
0604 Row Punch with read/punch feature. Prepunched information cannot 
be read when the cards are designated as an output file. 

NOTE: Stacker select entries for recordsof a combined file that are read only 
should be made on the Input Format Specifications form. Stacker select 
entries for records that are punched only should be made on the Output 
Format Specifications form. 


w Example 


Figure 2—2 illustrates various combinations of file type entrieg. 
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2.2.3. File Designation (Column 16) 


a Entry 
Conditional; used with file types 1, C, and U. 
w Purpose 


Indicates whether an input file is a table file or a data file, If a data file, 
indicates whether that file is primary, secondary, or chained. 


a Codes 


T — Table file. 


U 
| 


Primary data file. 
S ~— Secondary data file. 
R — Record address or tag file. 


C — Chained (disc chained) file. 


| 


a Rules 
(1) Column 16 is left blank for all output files. 


(2) A maximum of nine input files can be specified, including at least one 
primary file. 


a Example 
Refer to Figure 2—2 for an illustration of file designation entries. 


2.2.4. End of File (Column 17) 
a Entry 
Optional. 
= Purpose 
Indicates which files are to be checked for an end of file condition in order to 
turn on the last record (LR) indicator. Should only be used when all end of file 
conditions are not present to complete processing, 


w Codes 


E — Indicates end of file conditions to be checked. 
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a Rules 


(1) If Column 17 is left blank for all input files, the LR indicator is turned on 
when all input files have been processed. 


(2) An E entry for a single file indicates that all data records for this file must 
be read and processed before the LR indicator is turnedon. 


(3) An E entry for multiple files indicates that the last data record of each 
specified file must be processed before the LR indicator is turned on. 


(4) The object program detects the end of a card file by reading a card contain- 
ing a slash (0-1) punched in Column 1 and asterisk (11-4-8) punched in 
Column 2, 

a Example 


See Figure 2—2. 


Sequence (Column 18) 


a Entry 
Conditional. 
w Purpose 


Indicates the sequence of the record files so that the matching operations in the 
program are performed correctly (see 3.3.6). 


w Codes 
A — Ascending Sequence. 
D — Descending Sequence. 
a Rules 
(1) Sequence entries apply only to input files. 
(2) If the sequence entry for an input file is left blank and matching fields are 
specified in the Input Format Specifications, the file is assumed to have 
ascending sequence, 
a Example 
See Figure 2—2, 
File Format (Column 19) 
= Entry J 


Conditional; not required for printer and card files in 9200/9300 mode and IBM 
360 Model 20 mode programs, 
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Defines the record format of input and output files. 


aw Codes 


F — Fixed-Length Records, 


V — Variable-Length Records. 


a Rules 


SECTION: 
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(1) Fixed-length records must be specified for disc files with indexed sequential 
organization (I in Column 32), 


(2) 


specifications (L in Column 39), 


(3) 


Variable-length records must be specified for all files with line counter 


In 9400 mode programs, if the file format entry for a file is blank, F is 


assumed for indexed sequential files, V for all others. In other programs, 
F is assumed for card, printer, and indexed sequential files, V for all 
others. 


a Example 















































See Figure 2-3, 
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2.2.7. Block Length (Columns 20-23) 


= Entry 








Figure 2-3. Completed File Description Form 


Conditional; optional for printer and card files. 


ws Purpose 


$ 


{ 


Indicates the number of data characters in a block of an input or output file. 
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a Codes 
1-9999 — Specities the number of bytes in the block. The maximum and minimum 
block length by type of file is: 
BLOCK LENGTH 
TYPE OF FILE 
Card 1 80 
Printer 1 132 
18 (F format) : 
: uf a 9 
Tape — VI-C i (Vv aot 4095 
, 18 (F format) 
Tape — 12, 16 10 (V aot 9999 
; 3625 (F format) 
ise eake } ieee (Vv not 
Disc — 8414 1 ee (F format) 
7286 (V format) } 
a Rules 
(1) The size specifications must be right-justified; leading zeros may be 
omitted, 
(2) If record length is fixed, enter the size of the tape block. This entry must 
be some multiple of the record length entry (Columns 24-27). 


(3) 


(4) 


If record length is variable, enter the size of the largest block in the file. 
This entry should be the largest possible sum of the lengths of the data 
characters of the records contained in any block (see Appendix E). 


For unblocked, indexed sequential files, the block length specified 
must include the length of the key. 


a Example 


See Figure 2-3. 


2.2.8. Record Length (Columns 24-27) 


m Entry 


Conditional; optional for printer and card files. 


a Purpose 


Indicates the length of the logical record contained in the fileg 


a Codes 


The codes for record length are the same as those for block length (see 2.2.7). 
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a Rules 
—_— 
(1) The size specification must be right-justified; leading zeros may be omitted. 
(2) If record length is fixed, enter the record length. For all indexed sequential 
files, blocked or unblocked, the record length given must include the key 
length. 
(3) If record length is variable, enter the number of data characters in the 
largest record (see Appendix E). 
a Example 
See Figure 2-3, 
2.2.9. File Processing Mode (Column 28) 
“@ Entry 
Conditional; used with disc files only. 
m Purpose 
Indicates the method or mode by which the record is processed. 
a Codes 
Blank — Indicates sequential processing of a file. The file organization (Column ial 


32) may be either sequential, tag, or indexed sequential. 

L — Indicates sequential processing of a portion of an indexed sequential file 
using a record address (RA) file. The user supplies the record addresses 
which provide the upper and lower limits of the file to be processed. 

R — Indicates random processing of a sequential file using a tag file or of an 
indexed sequential file using an RA file or a chaining file. The file must 
be a data file. 

a Rules 


(1) This column is blank for tape, card, or printer files. 


2.2.10. Key Length or Record Address Field Length (Columns 29-30) 


a Entry 
Conditional; for use with indexed sequential, RA, and tag files. 
a Purpose 5 


Specifies the number of positions that each entry in an RA or tag file occupies 
or the length of the key for an indexed sequential file. 
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mw Codes 
VS 
01-99 
a Rules 
(1) The length specification must be right-justified; a leading zero may be 
omitted, 
(2) This field is blank for tape, card, or printer files. 
(3) For a tag file, a field length of 10 is assumed if this field is blank. 
(4) For an RA file, a field length of 8 is assumed if this field is blank. 
2.2.11. Record Address Type (Column 31) 
ew Entry 
Conditional. 
mw Purpose 
Identifies the address type. 
mw Codes 
ee Blank — Indicates a sequential file, accessed sequentially. 


K — Indicates an indexed sequential file which will be processed using a 
record key. 


I — Indicates a sequential file whose records will be retrieved by a tag file 
containing track addresses (see Appendix H). 


R — Indicates a sequential file whose records will be retrieved by a tag file 
containing relative block numbers (see Appendix H). 


a Rules 
(1) This field is blank for tape, card, or printer files. 
(2) Files of record address type I or R must be data files. 


2.2.12, File Organization Type (Column 32) 


a Entry 
Conditional. 


a Purpose 


Identifies the type of file organization. 
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mw Codes 
Blank — Designates a sequential file, accessed sequentially. Unbuffered Beats 
(demand mode) input and output are provided. 
1-9 — Designates a sequential file, accessed sequentially. Buffered input 
and output are provided. 
D — Indicates a sequential file, the records of which are accessed randomly 
using a tag file. This file must be a data file. 
T — Indicates a tag file (see Appendix H). 
I — Indicates an indexed sequential file to be created or processed, 
a Rules 
(1) Placing any digit in the range 1 through 9 in Column 32 causes buffered 
input and output to be provided for sequential files, where buffering is 
appropriate. Except for card reader files which are always buffered, 
input and output normally are provided unbuffered. 
Overflow Indicator (Columns 33-34) 
a Entry 
Conditional; used for report files only. 
~~ 


Purpose 
Identifies the overflow indicator associated with the file. 
Codes 
The overflow indicators are: 
OA, OB, OC, OD, OE, OF, OG, OV 
Rules 
(1) This field is blank except for report files. 


(2) Generally one overflow indicator is used to contro! the output of each 
report file. 


(3) In 9200/9300 mode programs, OF is assumed for the printer file. (No more 
than one printer file should be specified with blanks in columns 33 and 34.) 


2.2.14. Key Field Starting Location (Columns 35-38) 


¥ 


a Entry 


Conditional; for indexed sequential files only. 
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a Purpose 


Indicates the starting location of the key field within a data record. This 
specification is provided so that the key field may be located anywhere within 
the data record. 


wm Codes 


Blank or 0000 — Indicates an unblocked indexed sequential file to be created 
or processed. 


0001-7229 — Indicates a blocked indexed sequential file to be created or 
processed, 


mw Rules 
(1) This entry is required for blocked indexed sequential files only. 
(2) The entry must be right-justified; leading zeros may be omitted. 
(3) In unblocked indexed sequential files, the key is always treated as though 


it startedin position 1 of the record. However, an entry of 1 (or higher) 
should never be specified for unblocked files, 










TYPE OF FILE 


Pe eReUME ET ORGANIZATION 
(COLUMN 32) 





KEY FIELD STARTING 
LOCATION 
(COLUMNS 35-38) 






MODE OF PROCESSING 
(COLUMN 28) 






















REMARKS 





CONTENTS 





CONTENTS REMARKS CONTENTS 





CONTENTS 


(Blank) 


REMARKS 





Sequential 





The entire fife will be processed. 





(Blank) Not applicable (Blank) 





Sequential 

















Record Key Key Fieid Starting 


Location 


tndexed Sequential 





The entire file will be processed. Indexed Sequential 






A segment of the file will be processed. 
The limits to be processed are supplied 
by a record address (RA) file. 












The records will be processed randomly. 
The addresses ate supplied: (a) by an 
RA file, or (b) by the data contained in 
the chaining field of an input record. 
























{Blank} 
(Lor R) 





















Tag (Address) File 
Data File 


(Blank) 
(R) 


Tag (Address) File 
Data File 


Tag (Address) File 
Data File 


Tag File Processing 





Table 2~2, Summary of Columns 28, 31, 37, 35 ~ 38 for Disc Files 


2.2.15. Extension Code (Column 39) 


a Entry 
Conditional; used with chaining, RA, tag, and table files. 
a Purpose 
: t 


Indicates to the RPG processor that additional information about the file is 
coded on a File Extension form (see Section 6) or Line Counter Specifications 


form (see Section 7). 
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m Codes 
E — A File Extension Specifications form is present for the file. 
L — A Line Counter Specifications form is present for the file. 

w Rules 


(1) L can be coded only for sequential output files. Column 19 of the File 
Description form must contain a V. 


a Example 
See Figure 2-3, 
2.2.16. Device (Columns 40-46) 
a Entry 
Required. 
a Purpose 
Relates a file to a specific type of input or output unit during compilation time. 


ws Codes 









Entry Input/Output Device —— 
READER, READO1, READ20, 600 CPM Reader, Type 0711 
READ40, READ42 
PUNCH, PUNCH42, PUNCH20, Row Punch, Type 0604 
ROWPNCH, READ20, READ4O, 
READ42 
CRP, CRP20, Row Punch, Type 0604 with read/punch 
RRP, READ20, READ40, feature 
READ42 
PRINTER, PRINT63, Drum Printer, Type 0768-00 or 0767-01 
PRINT16, PRINTLF, 
PRINTUF, PRINTDR 
TAPE, TAPE7 UNISERVO 12, 16, VI-C tape units 
TAPE6C UNISERVO VI-C tape units 
DISC, DISK11F, DISK11 Disc Unit, Type 8411 f 
DISC14, DISK14 Disc Unit, Type 8414 
NOTE: Programs for card controller, multifunction card machine or similar uk 


device, or for a direct access storage device other than the UNIVAC 
8411/8414 or IBM 2311 cannot be compiled or executed. 
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w Rules 
(1) Each file must be assigned one of the input/output devices. 
(2) The code must be left-justified. 


(3) The entry TAPE6C is permitted for files on UNISERVO VIC tape units, 
but is not required. 


(4) The various alternative codes listed in the table are provided for 
compatibility with other RPG compilers. 


ws Example 
See Figure 2—3, 


Logical Unit Number (Columns 47-52) 


In the 9400 RPG this field is not used. For the sake of compatibility with other 
RPG compilers, however, any EBCDIC characters or blanks may appear here. 


Labels (Column 53) 
a Entry 

Conditional; used only with eeereue tape or discs. 
a Purpose 


Specifies the type of label to be checked by the program during label 
processing. 


m Codes 


Blank — The file is unlabeled. 

S — The file has standard labels. 

N — The file has nonstandard labels. 

E — The file has standard labels followed by user standard labels. 


a Rules 


(1) Label processing is provided by the RPG program. It is, however, the 
programmer’s responsibility to supply any required label information in 
Job Control (LBL) cards at the time the object program is loaded for 
execution. 


(2) ForE entries, the standard label is processed. In addition, an automatic 
exit is made to the user routine specified in Columns 54-59 to process the 
user Standard label. 
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(3) Standard labels are required for indexed sequential disc files. 


see 
(4) Nonstandard labels are not permitted for sequential disc files. 
(5) A tape mark must precede the data on an unlabeled output file. 
a Example 
Figure 2—3 illustrates sample entries for tape files. 
Label Exit Name (Columns 54-59) 
m Entry 
Conditional; used if E or N appears in Column $3, 
a Purpose 
Gives the name of the routine written by the user to process user standard 
labels or nonstandard labels. 
mw Rules 
(1) The name of the user routine must be left-justified and may contain a 
maximum of six characters. The first character must be alphabetic; the 
remainder, alphabetic or numeric. 
hot 


(2) In 9200/9300 mode programs, Columns 54-59 are ignored. 
(3) See Appendix F for a discussion of label exit routines. 


Columns 60-65 


These columns are not used, and may contain any EBCDIC characters or blanks. 


File Addition (Column 66) 


a Entry 

Conditional; used with indexed sequential files only. 
Purpose 

Indicates the addition of new records. 
w Codes 

A — New records are to be added. 


Blank — New records are not to be added. Ef 
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mw Rules 
(1) This column is blank for tape, card, or printer files. 
(2) The file addition specification applies only to indexed sequential files and 
is defined according to the file type specifiedin Column 15, as well as the 
mode of processing. Table 2-3 indicates when an indexed sequential file 


may specify a file addition (A). 








FILE TYPE PROCESSING MODE FILE ADDITION 
Output ee, Creating or extending file — 
Cutput File Adding records 
Input File Processing without updating and with- blank 
out adding records \ 
input File Processing and adding records | A 
Update File Processing and updating records | blank 
Update File Processing, updating, and adding records A 








Table 2—3. Summary of File Addition 
2.2.22, Number of Tracks for Cylinder Overflow (Column 67) 


a Entry 
Conditional; used with indexed sequential files only. 
a Purpose 
Contains the number of tracks to be reserved for cylinder overflow. 
mw Codes 
| 0-8 
a Rules 
(1) This column is blank for all other specifications, 


2.2.23. Columns 68-69 
These columns are not used, and may contain any EBCDIC characters or blanks. 
2.2.24. Tape Rewind Option (Column 70) 


a Entry 


Optional. J 
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w Purpose 





This option is used during the execution of the object program and greatly 
simplfies tape handling procedures. 
a Codes 
9200/9300 IBM 360/20 ACTION ACTION 
MODE MODE AT START OF AT END OF 
PROCESSING PROCESSING 
R Rewind, No Lock Rewind, No Lock 
U or Blank Rewind, No Lock Rewind, Lock 
No Rewind No Rewind 
Rewind, No Lock No Rewind 
No Rewind Rewind, No Lock 
No Rewind Rewind, Lock 
ew Rules 
(1) This column is used for tape files only. For all other types of files this 
column must be left blank. - 
2.2.25, Columns 71-74 ave 


These columns are not used, and may contain any EBCDIC characters or blanks. 
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3S. INPUT FORMAT 
SPECIFICATIONS 
FORM 


3.1. GENERAL DESCRIPTION 


The Input Specifications form (Figure 3-1) is used by the RPG program to do the 
following: 


a Specify input records within an input file; 
mu Define input record sequence; 


a Describe data field format and locations within the input record. 


a All Input Specifications for a given input file must be grouped together. 


The entries for this form are divided into two categories: 


(1) Record Identification (Columns 7-42) — These entries identify the input record 
by assigning the record type indicators, by specifying the input record codes, 
and by indicating the relationship of one record to another. A minimum of one 
record identification entry is required in each RPG program, Each record identi- 
fication entry must be entered on a separate line above the field description 
entries for that record. 


(2) Field Description (Columns 43-70) — These entries describe the individual 
fields of the input record that are used by the object program, Each entry is 
entered on a separate line below the applicable record identification entry. 


REPORT PROGRAM GENERATOR 
INPUT FORMAT SPECIFICATIONS 





PROGRAM apa x ae a Spee eet Ss PROGRAMMER =o a ee ee = eee AS = DATE: ewww en, PAGE___ OF... PAGES 





FORM AD DATA DECIMAL ——y MATCHING FIELOS FIELD 
STACKER SELECT FORMAT POSITIONS CONTROL LEVEL RECORD RELATI ION 


TION i 5 anne 


[L.___REcoro po IPeNTiFicaTiON ae FiELD 
LOCATION INDICATORS 
st renLiv| PROGRA 


cit N | 2 tp -—— arr i ar a SIGK HIDENTIFICATION 
POSITION eal Rt eosition [9 ]/Z° A POSITION 7 position | 
o 
adashe |S 23 an fs2 [53 aus 38 3 52s 8 s mu 7 









































Figure 3--1. Input Format Specifications Form 
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3.2, RECORD IDENTIFICATION ENTRIES 


The following descriptions explain the entries for the record identification portion 
of the Input Format Specifications form. 


3.2.1. File Name (Columns 7-14) 

a Entry 
Required. 

= Purpose 
Assigns an identifying name to each input file. The file name entry used on the 

7 Input Format Specifications form must correspond to the file name entry on the 
F File Description form, This enables the RPG program to gather all the pertinent 

information about a specific file. 


a Rules 


(1) A file name must be specified for each input file, and it must correspond 
with the file name assigned on the File Description form. 


(2) The file name must be left-justified and the first character must be alpha- 
betic. (Alphabetic characters are defined in 2.2.1.) 


(3) The remaining characters may be alphabetic or numeric. 

(4) A maximum of eight characters may be used for a file name but in 9400 mode 
and IBM 360 Model 20 mode, the first seven identify the file. For example, 
WORKFIL1 and WORKFIL2 are considered the same file name. 

a Example 


Figure 3-2 illustrates file name entries, 
3.2.2. Sequence (Columns 15-16) 
a Entry 
Required. 
w Purpose 


This field is used when the input records must follow a specified sequence in 
an input file. Figure 3-3 illustrates such a sequence. An out-of-sequence con- 
dition causes the halt indicator HO to be turned on. The object program halts 
unless this indicator is turned off by the SETOF instruction (see 4,2.4.13). 
Records in a tape or disc file are treated the same way as records in a card file. 


f 
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TYPES 
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FILE 


SHIP TO CARD 








DETAIL CARD 







RECORD TYPE 2 
DETAIL CARD 
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Figure 3~2. Example of File Name, Sequence, Number, and Option Entries 
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a Codes 


01-99 — Consecutive sequence of records. 


Two alphabetic characters — Indicates records do not have to be in sequence. 


ENTRIES IN SEQUENCE FIELD ARE: 





CUSTOMER 
BALANCE 






TRANSACTION 
CREDITS 






TRANSACTION 
DEBITS 







CUSTOMER 
NAME 
AND ADDRESS 







Figure 3~3. Card File Sequence 


a Rules 


04 


03 


02 


01 
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(1) Alphabetic characters must be entered in this field when the input records 
do not have to be in sequence; any two alphabetic characters may be used. 


(2) Records not required to be in sequence must be entered prior to those that 


must be in Sequence. 


(3) Input records required to be in sequence should be listed in the same order 


as they appear in the input file. 


(4) The numeric sequence entries for each file requiring sequencing must be 


consecutive beginning with 01. 
a Examples 
See Figure 3-2. 


3.2.3. Number (Column 17) 


a Entry 


Conditional; must be used when the sequence field contains a numeric entry. 


w Purpose 


This field indicates whether one or more records of a specific ype may appear 
together. Figure 3-4 provides an example of such a record type. 
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NUMBER FIELD 











ENTRIES RECORD TYPE 
CUSTOMER 
BALANCE 1 4 
TRANSACTION 
CREDITS N 3 
TRANSACTION 
DEBITS N 2 
CUSTOMER 
NAME i 1 


AND ADDRESS 





Figure 3-4. Record Types 
Codes 
1 — Indicates thatonly one of that record type can appear. 
N — Indicates that one or more of that record type may appear together. 
Blank — Indicates that the sequence field contains alphabetic characters. 
Rules 


(1) An entry must be made in this field when the corresponding sequence field 
contains numeric data. 


(2) This field must be blank when the sequence field contains alphabetic data. 
Example 


Figure 3-2 illustrates entries in this field. 


Option (Column 18) 


Entry 

Conditional; used only when sequenced records are numeric. 

Purpose 

Indicates whether or not a specific record type must be present in the sequence 
of record types. 

Codes 

Blank — Indicates record must be present. z 


0 — Indicates record need not be present. 
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a Rules 


(1) This column must be left blank if the record type must be present. 


(2) The letter O is entered when the presence of the record type within the 


control group is not mandatory or if the records are nonsequential. 


m Examples 


Figure 3-2 illustrates the sample problem described in the following text. 


A billing file contains two different recordtypes: ship to, and details. The ship 
to card is not requiredif the address is the same as the one specified in the 
name and address file. Figure 3-2 illustrates a typical portion of the card file 
and the record type entries requiredon the Input Format Specifications form. 
The file name BILLFILE is written only once in Columns 7-14. The two record 
types are specified on subsequent lines in the sequence in which they are to be 
read. 


A ship to card may or may not be present, It must be the first card, and is limited 
to one card per customer. The 01 in the sequence field indicates the order of 
sequence, the 1 in the number field specifies the number of record types allow- 
able, and the letter O in the option field indicates that the record may or may 

not be present. 


The detail card is of the second record type, determined by the 02 entry in the 

sequence field. The N in the number field specifies that one or more of this 

record type may appear. The blank option entry indicates that this record a 
type must be present. 


3.2.5. Record Indicator (Columns 19-20) 


a Entry 


Required; except in an AND relationship and optional in an OR relationship. 


w Purpose 


This specification has the following functions: 


(1) 


(2) 


To establish a two-digit code for each input record type. It is used in con- 
junction with the recordidentification codes entry (Columns 21-41). Record 
indicators simplify references to a particular record by supplying a two- 
digit code to take the place of the normal record identification. 


To set (or turn on) an indicator in theobject program each time a particular 
input record is read into the system. The object program processes certain 
specifications of the Calculation and Output Format forms, depending on 
the on or off condition of this indicator. ; 


This function is similar in operation to that of selectors on punch card 
machines. A record indicator permits certain operations indicated on the 
Calculation and Output Specifications forms to be performed. 
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These operations will be performed only if the particular record indicator 


written on the specification line is in the on state. To put this indicator in 


Nee theon state, the system must read in that particular record type which has 
the same indicator specified in Columns 19-20 as its record indicator, 
Specifications associated with other record indicators in the off state are 
not performed. 

a Codes 
01-99 — These numbers do not have to be assigned in sequence and are mutually 
exclusive. 
a Rules 

(1) Each indicator code must have a unique number, from 01 through 99. 

(2) The numbersdo not have to be in any sequence. 

(3) Normally, only one record indicator is on at one time, when a particular 
record indicator is turnedon, all other record indicators are automatically 
turned off. However, when chaining files are being processed, resulting 
indicators may be turned on for the chaining file (also turned on for some 
or all of the chained files). 

a Example 
Figure 3-5 illustrates record indicator entries, 
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Figure 3~5. Example of Record Indicator and Record Identification Codes Bitries 
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3.2.6, Record Identification Codes (Columns 21-41) 


wm Entry 


3.2.6.1, 


Conditional; it is recommended that entries be madefor each record type. 
However, if the user desires, the last record type described need only have 
sequence and record indicator specified. In particular, this means that: 


(1) If all input records are to be processed alike, the record identification 
codes may be left blank. 


(2) If the input file consists of many different record types, only some of 
which areto be processed, the record types to be processedcan be listed 
first with record identification codes, All remaining record types can be 
grouped under one record indicator by not specifying record identification 
codes for this last indicator, 


(3) If an input record is read and not identified, halt indicator HO is turned on. 
The object program will stop unless this indicator is turned off by the 
SETOF instruction (see 4.2.4.13), 


Purpose 


This section of the Input Format Specifications form identifies the different 
record types referenced by the record indicator, After identifying this record, 
all future references to the record are made using the record indicator. 


Codes 


Three identifying codes per line are provided on the form, as indicated by the 
Columns 21 through 41 and headed 1, 2, and 3. More than three identifying codes 
may be specifiedon successive lines by using AND relationships, as described 
in 3.2.7. Since the three setsof entries are identical, only the first set of 
entries (Columns 21-27) is described. The entries consist of the following 
fields: 


POSITION 
NOT 


C/Z/D 
CHAR 


POSITION (Columns 21-24) 


m Entry 
Required, 
m Purpose 


Indicates the card column or tape or disc record position that contains ithe 
identifying code for a specific record type. 
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Codes 


0001-9999 
Rules 
(1) The entry must be right-justified. 


(2) Leading zeros may beomitted. 


NOT (Column 25) 


Entry 


Conditional; see codes. 


. Purpose 


This entry specifies whether the identifying code must be present or absent in 
the record. 


Codes 


N ~ Indicates that the specified position in the record must not contain the 
code to satisfy the identification requirement. 


Biank — Indicates that the position must contain the code to satisfy the 
requirement. 


C/Z/D (Character, Zone, Digit) (Column 26) 


Entry 
Required. 
Purpose 


Specifies the portion of the identification code indicated in the position entry 
that must be examined for identification purposes. 


Codes 
C — The entire character is used for comparison and identification. 
Z — The zone portion of the character is used for comparison and identification, 


D — The digit portion of the character is used for comparison and identification. 
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ws Method of Zone and Digit Testing 
The method for zone and digit testing by the RPG object program depends on — 
the mode of compilation selected in the RPG control card, Column 7 (see 
Appendix E), 
(1) 9400 mode — zones and digits, as those words are used in punched-card 
processing systems, are compared, without reference to internal repre- 
sentation. The possible zones are: 
12 zone (characters A-I, &, plus zero) 
11 zone (characters J-R,—, minus zero) 
0 zone (characters S-Z) 
no zone (characters 0-9, blank) 
All other characters are treated as having the same zone and the same 
digit. 
(2) 9200/9300 mode — characters to be tested are translated to 9200/9300 
compressed code. Zone testing is performed on bits 6 and 7 of the input 
and identification character; digit testing is performed on bits 0 through 5, 
(3) IBM 360 Model 20 mode — EBCDIC zones and digits are compared, except for 
‘ &, —, and blank, which are considered to have the same zones as A, J, and 
1, respectively. 
3.2.6.4. CHAR (Character) (Column 27) 
a Entry —_ 


Required. 
a Purpose 


Identifies the character on the input specifications card to be compared with 
the specified columns of the input record. 


m Rules 


(1) The information written on the Input Specifications form is punched into 
cards. At record identification time in the object program operating cycle, 
a portion of Column 27 on the input specification card is compared with 
the same portion of the specified column of the input record. The portion 
that is involved in the comparison is a function of the C/Z/D specifica- 
tion and the mode of compilation selected in the RPG control card (see 
3.2.6.3). 


3.2.7. AND Relationship (Columns 14-16) 


@ Entry is 
# 


Conditional. 


A 
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a Purpose 


= Allows for more than three codes to be used to identify any one record. 
a Code 
AND — Placed in Columns 14-16 on the secondary record identification line. 
a Rules 
(1) Columns 17-20 must be blank. 
(2) As many AND lines as necessary may be used to identify a record. 
(3) An AND line cannot be used if the preceding line contains no record 
identifications. 
3.2.8. OR Relationship (Columns 14-15) 
a Entry 
Conditional. 
mw Purpose 
The OR relationship is used to reduce the writing of specifications for records 
that are similar. The use of the relationship will be clearer after reviewing the 
Men example given for the field record relation field. An OR relationship can be 


appliedunder the following conditions: 


(1) When two different record types have identical fields located in the same 
poSitions, two record identification entries can use the same field de- 
Scription entries to describe the field. 


(2) When two records have the same fields but their field locations are not 
identical, then an OR relationship can be used in conjunction with a 
record indicator specifiedin the field recordrelation field (Columns 63-64), 
If the fields are not located in the same columns in both record types, they 
must be specifiedtwice. The appropriate record indicator is indicatedin the 
field record relation field. 


(3) When two records have common fields and different fields they can be re- 
lated in an OR relationship. In doing this, each field unique to a record must 
be so identified in the field record relation entry. It is useful to use an OR 
relationship if the records contain more common fields than different fields. 


a Code 


OR — Placed in Columns 14-15 on the secondary record identification lines. 


¥ 
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a Rules 


(1) The record identification codes for one record in the OR relationship 
appear before the OR line on the input form; those for the other record 
appear on the OR statement line. 


(2) Columns 16-18 must be blank. 


(3) All records in an OR relationship must have the same sequence character- 
istics. 


(4) Two or more records may be specified in an OR relationship. 


a Example 


See Figures 3-5 and 3-6. Figure 3-6 illustrates how the AND, OR, and NOT re 
lationship may be used. 


REPORT PROGRAM GENERATOR 
INPUT FORMAT SPECIFICATIONS 


PROGRAM fee ae .. PROGRAMMER ra 















STACKER SELECT: 


RECORD IDENTIFICATION CODES 
LINE FILE Sr 
NO. NAME NIC ‘ nic N ‘ 
POSITION |9 Zl POSITION | 2 Position |9|Z |"! 
8 5] 6 |7 14 v7 a 24]25 [26 |27|28 31432 133 [3435 38 4 
a | | 


R 
Naa 


+H a HHH 



















PUNCHED IN COLUMN 5 OR AN 11 PUNCH (XZONE 
PUNCH) APPEARS IN COLUMN 1. — 
















RECORD INDICATOR 10 WILL BE TURNED ON IF A4 
IS NOT PRESENT IN COLUMN 80. 





INDICATOR 11 WILL BE TURNED ON IF THE FOLLOWING 
FOUR CONDITIONS ARE SATISFIED: 

NO, 12 PUNCH 
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Figure 3-6. Examples of AND, OR, and NOT Relationships 
3.2.9. Stacker Select (Column 42) 
a Entry 
Optional. 
= Purpose 


Permits cards read on the Type 0704 Read/Punch (if used as an input file) hss 
to be selected into stackers. 


UP-7707 


UNIVAC 9400 
REPORT PROGRAM GENERATOR Rev. 1 scene. 2 ee 


mw Codes 


2 — Select stacker. 
1 or blank — Normal stacker. 


= Rules 
(1) A 2 entry causes cards of this type to bedirected to the select stacker. 


(2) A blank, al entry, or any other entry causes cards of this type to be 
directed to the normal stacker. 


3.3. FIELD DESCRIPTION ENTRIES 
The following descriptions explain the entries for the field description portion of the 
Input Format Specifications form, Field description specifications are always written 
on the lines immediately below the associated record descriptions. 
3.3.1. Data Format (Column 43) 
w Entry 
Conditional. 
a Purpose 
Indicates to the system that the input data is in packed decimal format. The 
RPG program automatically converts numeric input data from unpacked format to 
packed decimal format. 


m Codes 


P — Indicates packed input format. 
Blank — Indicates an unpacked input format (normal entry). 


m2 Rule 


Column 43 must be blank for an alphanumeric field. 


3.3.2. Field Location (Columns 44-51) 


m Entry 
Required, 
a Purpose 


Defines the location of each field in the input record. The field location entry is 


(1) Start (Columns 44-47) — This specification contains the location of the first 
position of the field. 


divided into two sections: 


(2) End (Columns 48-51) - This specification contains the location of the last 
position of the field. 
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m Codes 
0001-9999 
a Rules 
(1) Both entries must be right-justified; leading zeros may be omitted. 
(2) The fields may be specified in any sequence. 
(3) The maximum length for numeric fieldsis 15 digits. 
(4) The maximum length for alphanumeric fields is 256 characters. 
(5) In all indexed sequential files, the key is considered part of the input 
record. All or part of the key may be specified as a field for processing. 
In unblocked, indexed sequential filesthe record key always starts in 
location 1 andthe record data starts in 1 + KL, where KL is the Key 


Length specified in the File Description (Columns 29-30), 


3.3.3. Decimal Position (Column 52) 


a Entry 
Conditional; required only for numeric fields. 


a Purpose 


Determines for the RPG program the numberof decimal positions contained in 
the field location entry. Also causes the zone punches within the card or tape 
field specified to be removed, except in therightmost poSition. 


ew Codes 


Blank — Indicates an alphanumeric field. 
0-9 — Indicates the number of decimal positions. 


a Rules 


(1) The decimal position must be indicated if the field specifiedis to have 
calculations, edit functions, or zero suppression in the output. 


(2) A zero must be entered for all numeric fields that do not contain decimal 
positions, 


(3) If an entry is made in this column, the RPG considers the associated field 
to be numeric; if no entry is made, the field is considered alphanumeric. 


3.3.4. Field Name (Columns 53-58) 
m Entry ¥ 


Required. 
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mw Purpose 

ao Assigns a field name to a defined field so that the programmer does not have to 


remember the field positions of input records. All references to a field must be 
made by uSing its field name. 


a Rules 


(1) The name may contain a maximum of six characters; only alphabetic (A-Z, 
$, #, @, ?, %) and numeric characters are permitted. 


(2) The first character of the name must be alphabetic and left-justified. 


(3) Fields in two different records not having an OR relationship may use the 
same name but only if they havethe same length and number of decimal 
poSitions, 


(4) The contents of a defined and named field are replaced by new data when 
a record using the same name is read. Data that must be retained for the 
entire control group must be given a unique name. 


3.3.5, Control Level (Columns 59-60) 


mw Entry 


Conditional; must contain an entry if this field is used for control purposes. 


a Purpose 


Provides a convenient and simple method for specifying control functions. Nine 
control levels may be specified from low to high L1, L2, L3, ..., L9. An indicator 
is associated with each control level. 


When control levels are used, a control break occurs. The value of the field 
causing the break is retained in a storage field associated with the level on 
which the break occurred. When a record containing a control field is read, the 
value of that field is compared with the value stored in the level storage associ- 
ated with the level of control for the field. If the two are not equal, a control 
break on that level has occurred, and the level indicators for that level and all 
lower levels are set. The setting of these level indicators can be used to control 
calculation and output at both total and detail time. The level indicators are 

not reset until after detail time for the record causing the control break. However, 
total time is not executed until a second control break occurs. 


a Codes 
Li, L2, L3, ..., L9 — Indicate control levels from low to high, 
a Rules 


(1) Control fields may be either numeric or alphabetic; when numeric, zone bits 
are not taken into consideration in comparisons to determine a control break. 
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(2) Numeric control fields may be in packed or unpacked format. 


(3) Control field specifications are permitted for all primary, secondary, and ai 
chained files. 
3.3.5.1. Split Control Fields 
mw Entry 
Optional. 
m Purpose 
Permits several fields in an input record to be specified as one control field 
called a split control field. The same control level may be specified for split 
or nonsplit control fields in various record types by use of the field record 
relation specification in conjunction with control level indicator entries. 
a Codes 
L1, L2, L3,..., L9 — Indicate control levels from low to high. 
w Rules 
(1) The fields of a split control field do not have to occupy contiguous 
poSitions., 
(2) The following rules apply when using field record relation indicators with 
split control field specifications: ~~ 


— Split control fields of any one level are arranged in storage in the same 
sequence as they appear on the Input Specifications form. 


~ The sum of the lengths of the split control fields must not exceed 256 
bytes. For numeric fields, the packed length is used to calculate the 
sum of the lengths. 


— When a record with split control fields is specified with field record 
relation indicators, then only these fields are used whenever that record 
indicator is turned on, 


— The overall field length for each control level must be the same in each 
group. For example, if control level (L1) is composed of two fields with 
an overall length of 20 positions, then the same control level (L1) used 
with afield record relation indicator and composed of only one field must 
be 20 positions in length. 

a Example 


(1) Figure 3-7 is an example of a split contro] field. 


(2) Figure 3-8 is an example of a multiple split control field. 
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Figure 3~8. Example of Multiple Split Control Field Specifications 
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Matching Fields (Columns 61-62) 


a Entry 


Optional. 


= Purpose 


Provides the object program with the ability to match or to chain the records of 
one file with those of another file and to check sequence if only one file is 


specified. 
m Codes 

M1, M2, ..., M9 — Nine matching field indicators designate low to high order, 
a Rules 

(1) A maximum of nine fields may be matched in one operation. 


(2) 


(3) 


(4) 


(S) 


(6) 


The fields to be matched do not have to occupy the same position in all 
files or all record types within a file. Fields designated by the same 
matching fields indicator need not have identical field lengths in all files. 


The total length of matching fields must be identical for all record types of 
a file, and must not exceed 256 bytes. 


If a record with matching fields is specified with and without field record 
relation indicators, then only the fields conditioned by a field record rela- 
tion indicator are used when that record indicator is turned on, The match- 
ing fields without a field record relation indicator are ignored. These fields 
may be specified in any order on the Input Specifications form. 


Matching fields may be packed or unpacked numeric or alphabetic; when 
numeric, zones or Signs are not taken into consideration to determine match 
or sequence. 


When sequence checking, the data of the fields are moved to the matching 
field holding area. The compare operation is made on all fields at the same 
time. The fields are placed in adjacent locations, starting with the highest 
numbered field (M9, if present) and continuing with the successively lower- 
numbered fields. 


M6 M4 M1 
REGION DIVISION DEPT 
012 026 019 Record 1 
Matching 
Field 
Holding #g 
Area M6 M4 M1 
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Record 2 
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(7) If the sequence of the matching fields is not the same as the internal collat- 
ing sequence of the 9400, the RPG program can provide an automatic exit to ae 
an external user subroutine with the predefined label ALTSEQ that trans- 
lates the matching fields to the proper collating sequence. This option is 
selected by entering an A in Column 26 of the RPG control card (see Appen- 


dix E). 
mu Example 


Figure 3-9 is an example of matching fields. 
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Figure 3-9. Example of Matching Fields 


3.3.6.1. Matching Record Indicator — Multifile Input 


a Purpose 


The function of matching records of one file, called primary, ag&inst the 

records of another file, called secondary, has an associated internal indicator 

called the matching record (MR) indicator. The MR indicator is used to control ~ 
operations specified on the Calculation and Output Format Specifications 
forms. 
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The MR indicator is turned on for a control group when a secondary file record 

wa matches a primary file record. All primary records of a matchedcontrol group 
are processed before the first secondary record, The MR indicator is on during 
the complete processing of the group andis turnedoff at the completion of total 
time for that group. 


If there is no match of the secondary file to the primary, the MR indicator is not 
turnedon, Thus, the MR can be used to control operations indicated on the 
Calculation and Output Format Specifications forms, It can be used to select 
processing on unmatched primary and secondary cards. If no match is found on 
the matching fields, the object program processes the next record in the se- 
quence, 


m Rules 


(1) The matching fields specification may still be used if only some of the 
record types in the file contain the fields necessary for matching. The 
record types without matching fields contain blanks in the matching fields 
specification on the input form. The blank field indicates to the RPG that 
these records are not to be checked for a matching field. The MR indicator 
is turned off when these record types are processed, 


(2) Nine input files may be used with the matching fields specification. This 
multifile input is accomplished through the use of a combination of input 
devices: cardreader, read/punch, tape units, and disc units. The relative 
priority of the secondary files is determined by their sequence on the File 

We Description form, The MR indicator is turned on when a record in a second- 
ary file matches a record from the primary file, 


(3) The total length of matching fields must be identical for all record types 
of a file, 


(4) Matching fields may be packed or unpacked numeric or alphabetic; when 
numeric, zones or signs are not taken into consideration to determine 
match or sequence, 


(5) If all the matching record fieldsof a given record contain decimal or binary 
zeros (represented by a 12-0-9-8-1 multipunch on a punched card), there 
is a possibility that the MR indicator may be set when it is not expected 
to be. 


(6) Secondary files must appear in the same order on the Input Format Speci- 
fications form as they appear on the File Description form. 


ma Examples 
(1) Card File to Card File Matching 


Figure 3-10 illustrates an inventory application in which a master file of 
stock status balance cards (SSBC) is being matched against a detail 
transaction deck forupdating. Each group of detail cards (transactions) 
must have a matching master card (stock status balance card) in order to 

See be processed. Nonmatched detail cards (issue cards coded 32) are to be 
selected for special processing. 
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The input specifications for this inventory application were shown in 
Figure 3-9, The file that is listed first on the form (the SSBCARD file) 
is called the primary file, The matching record indicators, M1 and M2, 
cause each transaction card read to be compared with the master card 
just read. 
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Figure 3—]0. Example of Card File to Card File Matching 
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es (2) Tape File/Disc File to Card File Matching 


Figure 3—11 illustrates an inventory application in which a master file of 
stock status balance records (SSBR) is being matched against a detail 
transaction card deck for updating. Each group of detail cards (transactions) 
must have a matched master record in order to be processed. Unmatched 
detail cards are to be selected from the file as noted in the example by 


#32. 
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Figure 3-11. Example of Tape File/Disc File to Card File Matching 
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3.3.6.2, Sequence Checking 


a Purpose 


The matching fields indicator may be used to indicate sequence checking when 
one input file is specified. This function is generally associated with card 
files. The specifications of M1 through M9 cause each field of a record so 
designated by this indicator to be compared for sequence with the field pre- 
viously read, If an out-of-sequence condition occurs (the sequence is speci- 
fied in Column 18 of the File Description form), halt indicator HO is turned on 
and processing stops unless the indicator is turned off by the SETOF operation 
(see 4.2,.4.13). 


a Example 


Figure 3-12 is an example of sequence checking three input fields. 
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Figure 3~12. Example of Sequence Checking with Matching Fields Specification 


3.3.6.3. Chaining Fields 


aw Entry 


Conditional; used with chaining files. 


a Purpose 


Permits chaining fields for multiple input files. This allows a user to link or 
chain a record of one file to a record of another file. Up to nine chaining fields 


may be specified. 
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a Codes 


C1, C2, C3, ..., C9 — Identifies a chaining field in a record of one file with 
a chained field of a record in an indexed sequential file. Each code is as- 
sociated with one field in a record. 


a Rules 


(1) A field used as both a matching field and a chaining field must be defined 
twice using two different field names. 


(2) A chaining field can be composed of more than one field in a record (split 
chaining field); the same chaining code is specified for each such field. 
The fields need not be adjacent. 


3.3.7. Field Record Relation (Columns 63-64) 


uw Entry 


Conditional: 

~ Used in conjunction with entries for records in an OR relationship; 
— Used with split control fields; 

— Used in conjunction with chaining fields. 

Codes 


01-99 — These numbersdo not have to be assigned in sequence and are mutually 
exclusive, 


Purpose 


Designates the record containing this field by referencing the appropriate record 
indicator. Used when input records in an OR relationship do not have identical 
data or control field locations, The entries are more completely described in 
3.3.5.1, and 3.2.8, 


With chaining fields (Cl to C9), this field is used to selectively control chain- 
ing operations. If a chaining field is specified on a field description line and 
the field record relation is blank, the chained record isobtained when the record 
type is present. However, if aresulting indicator is placed in field record re- 
lation, then the chained record is obtained only if the record type is present. A 
further use of field record relation is to control two chained files with one chain- 
ing field. The chaining field should be specified twice on the Input Specifi- 
cations form, each line having a separate resulting indicator. The chained 
record obtained depends on the on or off status of the resulting indicator, 

# 


Rules 


(1) When two records have identical fields, but the locations of the fields in 
the records are not identical, only one of the two setsof field specifications 
needs to be modified by a field record relation indicator. 
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a Example 


Consider an inventory application which uses a receipt card and an issue card, 
Both cards contain the date, type, part number, assembly number, and descrip- 
tion in Columns 2-35, The only distinction between the two cards is that the 
receipt card contains the field QUANTITY in Columns 36-42, and the issue card 
contains the field ISSUE QUANTITY in Columns 43-49, Figure 3-13 illustrates 
how the OR relationship is used in conjunction with the field record relation 
field to simplify input specifications. First, a record indicator is specified for 
each card. The OR relationship allows the fields to be described once for both 
cards. To relate afield to one specific card, the record indicator of that card 
is entered in the field record relation column on the same line with that field. 
In this example, the QTY field belongs only to the field record relation column 
on the line with QTY. Similarly, 30 in the field record relation column relates 
ISSUE to the issue card. 
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Figure 3-13. Example of Field Record Relation Entries 


3.3.8, Field Indicators (Columns 65-70) 


mw Entry 
Optional, 
Purpose 


Allows testing the statusof a field when it is read into the system, Depending 
on the results of the test (positive, negative, blank, or zero status), a field 
indicator is turned on that can be used to control calculation and output speci- 
fications or stop processing theobject program. Each field indfator is generally 
telated to a record type, The setting of these indicators (on or off) is not altered 
until a record of the same type is subsequently read or until the indicator 
number is defined in some other specification. Several field indicators can be 
on at the same time. 
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NOTE: Defining an indicator means to specify it on the Input form in the record 
indicator or field indicator columns. Using an indicator means to specify 
it in the field output indicators field on the Output form or in the indi- 
cators field (Columns 9-17) on the Calculation form. When an indicator 
is defined, it is set or turned on, if certain conditions are present. An 
indicator is used when the condition of that indicator is tested and the 
results of the test are used to control further processing of the object 


program. 
m Codes 


There are three types of field status codes and two types of field indicator 
codes. 


(1) The field status indicator codes are as follows: 
Plus — The value of a numeric field is greater than zero. 
Minus — The value of a numeric field is less than zero. 


Zero or Blank — The value of a numeric field is all zeros; for an alphabetic 
field it is all blanks. Unpunched columns of unpacked 
numeric fields are considered zeros. In 9400 and IBM 360 
Model 20 modes of compilation, any zero or blank indicator 
is turned on at the start of execution of the object program. 


(2) The field indicator codes are as follows: 


Numeric indicators — A two-digit numeric value, 01-99, may be assigned. 
It is used to control program calculations and output. 
This operation is accomplished by testing the se- 
lected indicator to determine its state. These indi- 
cators can be defined more than once on aform. The 
second specification of the indicator resets it from its 
previous state, 


Halt indicators — These indicators are designated from HO through H9 
and halt the processing of the object program when 
error conditions (as determined by the programmer) 
are detected. Halt indicators can also be used to 
control calculation and output specifications. If one 
of these indicators has been turned on during proces- 
sing of a record, then the object program is stopped 
when the processing of that record is completed, 
Processing is not interrupted if a halt indicator that 
was on is turned off. If a halt indicator appears in 
columns 69 and 70 in 9400 or IBM 360 Model 20 mode 
programs, the program stops after the first header or 
detail output and before the first dnputgecord is read. 


The HO indicator is also used by the RPG program 
for internal operations, 


a Rules 


(1) The plus and minus fields of the field indicators specification must be 
blank for alphanumeric fields, 
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(2) The halt indicator must be turned off or the program terminates before the 
next input record is read. (See Columns 54-59 on the Calculation Specifi- 


















































































































































































































se : 
cations form.) 
a Example 
Figure 3-14 represents the field identification entries necessary to describe 
completely the card layout shown. Each field is designated by a name written 
in Columns 53-58, The location of card fields is specified in Columns 44-51, 
Decimal positions must be specified for all numeric fields. Regular hours and 
overtime hours have two decimal positions, Rate has three decimal positions, 
Department, work number, and employee number are specified as numeric with 
no decimal positions. 
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Figure 3—14. Example of Field identification Entries 
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3.3.9. Sterling Sign Position (Columns 71—74) 


a Entry 


Conditional; must be used for programs processing sterling currency amounts. 


Purpose 


Alerts the RPG program when currency amounts are expressed in sterling, and 
provides a means to convert these amounts. The user should read Appendix D 
before using this specification. 


Codes 


S — Entered in Column 74 if the sterling input field is signed as specified in 
the Format 2 section of Appendix D. 


If the sterling input field does not conform to the sign specifications as de- 
scribed in Appendix D, then the position of the sign must be entered right- 
justified in Columns 71-74. 


Rules 


(1) Decimal position (Column 52) must be specified with one of the digits, 0, 
1, 2, or 3 to indicate the number of required decimal positions. 


(2) The same field name may not be used for both a decimal and a sterling field. 


(3) Columns 71-74 must be left blank if sterling currency is not being processed. 
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4. CALCULATION SPECIFICATIONS 
= FORM 


4.1. GENERAL DESCRIPTION 


The Calculation Specifications forms specify the operations, either computational or 
logical, that must be performed by the object program on the input data or other data 
previously generated by the program. The general rules for preparing Calculation 
Specifications forms are as follows: 


(1) Only one operation may be entered on each specifications line. 
(2) All detail calculations must be entered before total calculations. 
(3) Operations must be entered in the sequence in which they are to be executed. 


The Calculation Specifications form (Figure 4-1) is divided into the following three 
sections: 
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Figure 4—1. Calculation Specifications Form 


Q) Control indicators (Columns 7-17) define the record types on which the calcula- 
tions are to be performed and under which conditions they are to be performed. 
If calculations are to be performed on the basis of a control break, this speci- 
fication determines the exact control level at which the calculation will be 
executed. 


Q) Columns 18-53 determine the type of calculations to be performed, such as add, 
subtract, multiply, divide, and compare. The names of fields to bgpoperated upon 
are specified (factor 1 and factor 2) along with the name of the result field where 
the answer is to be stored. 


3) Columns 54-59 permit the results of calculations to be tested, thereby controlling 
subsequent calculations or output specifications. 
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4.2. FORM ENTRIES 


The following descriptions explain the entries for the calculation specifications and are, 
their relation to the RPG program. 
Control Level (Columns 7-8) 
a Entry 
Optional. 
uw Purpose 
Calculations may be executed at either detail time or total time. The control 
level specification indicates that a calculation line is to be executed at total 
time if the specified control level indicator is on. An entry in the contro! level 
field governs when the computation indicated in Columns 18-59 of the specifica- 
tion line is to be executed. 
A test for a control break occurs after a record is read into the system. If a con- 
trol break has occurred, total calculations are performed before the card causing 
the control break is processed. When a control break occurs, the indicator for the 
new control level and all lower order control levels are turned on at the same time. 
A control level indicator which is turned on by a control break is on during 
total time and remains on for the following detail time, including computation 
and output of the detail record. 
a Codes 


L1i-L9—Control break indicators 1 through 9, from lowest level to highest level. 


LO (Level Zero)—The level zero indicator is always on during the operation of 
the program, unless it is turned off with a SETOF instruction (see 
4.2.4.13). 


Even though a control break has not occurred, total computations may be per- 
formed by specifying LO (level zero) for the control level entry. The LO con- 
dition may be used to produce end of page totals even though no control 
break has occurred. 


LR (Last Record)—The last record indicator is turned on after the last input 
record has been processed and after all applicable outputs have been printed 
and punched. The control level indicators L1-L9 are also turned on at this 
time. 


@ Rules 


(1) If no control level is indicated (blanks in Columns 7-8), the calculation is 


executed at detail time. 


(2) If the program turns off indicator LO, it is not turned on again when a level 
break occurs. It must beturned on, if required, by a SETON operation. 
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ae m= Examples 


Figure 4—2 illustrates the functions of control ‘level entries. 
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Figure 4~2. Example of Contro! Level Entries 


@) Blanks in the control level columns indicate this calculation will be per- 
formed at detail time provided the proper indicators are set. 


Z Q) An LO control level indicates that the calculation is to be performed at 
total time. (LO is always set.) 


An L1 control level indicates that the calculation is to be performed at 
total time when control level 1 is set. 


@) An L2 control level indicates that the calculation is to be performed at 
total time when control level 2 is set. Note that if L2 is set, so is Ll. 


An LR control level indicates that the calculation is to be performed at 
total time for the last record in the input file. When the LR indicator is 
set, so are level indicators L1—L9. 
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4.2.2. Indicators (Columns 9-17) 


mw Entry 


Optional. 


m Purpose 


Indicates the conditions that control the calculation to be performed. 


m Codes 


Indicator specifications are grouped into the following categories: 


(1) 


(2) 


(3) 


(4) 


(S) 


(6) 


(7) 


(8) 


(9) 


If the control level and indicator specifications are blank, the calculation 
indicated on that specification line is executed for each detail record. 


A record indicator code (01-99) indicates the record type on which the 
specified calculation is made. The calculation cannot be performed on any 
other record type. 


A field indicator code (01-99) controls the calculation based on the status 
of an input field. A field indicator is turned on in the input section based 
ona plus, minus, zero, or blank field. 


A resulting indicator code (01-99) governs computation on a current specifi- 
cation line based on conditions that occurred in a previous calculation. 


A control level indicator (L1-L9) specified in conjunction with a record in- 
dicator permits computation to be executed only at the detail time of the 
record which caused the control break. This permits a calculation to occur 
only once, onthe first record, after the specified control break. 


The halt indicators (HO-H9), when specified on a calculation line without an 
N prefix, will cause the termination of a program or suppress a calculation 
when an error has been detected. The halt indicators may also be used with 
the N prefix. 


The overflow indicators (OA, OB, OC, OD, OE, OF, OG, and OV) permit a 
calculation specification line to be executed only if a page overflow has 
occurred. 


The matching record indicator code (MR) indicates that the calculation is 
performed only if there is a matching record in a secondary input file. 


The indicator LO indicates that the calculation indicated on that specifica- 
tion line is executed for each detail or total record. 
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«= Rules 


(1) Indicators can be specified at either detail time or total time. 
(2) All total calculations are bypassed until the first control break has occurred. 


(3) A maximum of three indicators plus any level indicator may be defined for a 
single calculation specification line. The indicators are tested in an AND 
relationship, which means that all conditions set up by the indicator entries 
for a given specification line must be met before the indicated calculation 
is performed. 


(4) If columns 7 through 17 are blank (spaces), the associated calculation is 
performed at every detail time. 


(5) A calculation specification line may contain a combination of the various 
indicators. If the control of an operation is determined by an indicator not 
being on, the indicator code must be preceded by the letter N. 


(6) To avoid rewriting the indicators when several calculations are to be per- 
formed under the same conditions, an asterisk (*) may be entered in column 
11. A line with an asterisk in Column11 is executed if the conditions were 
met for the preceding line. Also, once an asterisk condition has been set 
up for a series of lines, more stringent conditions can be put on any re- 
maining subset of those lines. , 
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(7) Indicators are tested only when they are explicitly specified. An asterisk 
in Column 11, therefore, does not cause indicators to be retested. 
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(8) The asterisk convention cannot be used on a total time line if the preceding 
line is a detail time line. 


(9) The asterisk convention may also be used with level indicators. If a preceding 
line is identified as a total time line, placing an asterisk in Column 11 of that 
line usually is functionally equivalent to respecifying the level indicator. 


(10) The asterisk should not be used on a TAG (see 4.2.4.17), on the Specification 
following a TAG, or on the first detail calculation specification. 


w Example 


Figure 4—3 illustrates the conditions that must be present for the associated 
calculations to be performed. 
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Figure 4--3. Example of Indicator Entries 
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Calculations are performed at detail time as follows: 
Calculations are performed at total time as follows: 


© 
@ 
@ 


When indicator 10 is set, 

When indicator 10 is set and indicator 11 is not set, 

When indicator 20 and control level L2 are set, 

When indicator 35 is set and halt indicator HI] is not set, and 


When the overflow indicator is set. 


When control level LO is set (this is always set) and indicator 17 is set, 
When control level L1 and indicator 41 are set, 
When control level L2 is set (no indicators have to be set on or off), 


When control level L3, the matching record indicator, and indicator 12 are 
set, and 


The asterisk continues the condition from the preceding line. 
4.2.3. Factor 1 (Columns 18-27) and Factor 2 (Columns 33-42) 
a Entry 
Required. 
@ Purpose 
Identifies the field name (see 4.2.5) or literal that is to be processed. 


A literal is actual data, rather than the assigned name which represents the 
address or location of the data. There are three types of literals: 


(1) Numeric Literals — A numeric literal may contain only digits. Alphabetics 
and special characters are not permitted. One algebraic sign, plus (+) or 
minus (~), and one decimal point (period or comma) may appear in the 
literal. The following rules apply to numeric literals: 

(a) Spaces are not permitted. 
(b) If the literal does not include an algebraic sign, it is assumed to be 
positive. If a plus or minus sign is included, it must be the leftmost 


character in the literal. 


(c) The decimal point (period or comma), if used, may appear anywhere in 
the literal. 
; 


(d) Numeric literals must not be enclosed in apostrophes. 


(e) Maximum length is ten digits. 
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(f) If the inverted (European) print option is indicated on the RPG control 
card (1 in Column 21), a comma must be used to represent a decimal 
point. Otherwise, a period must be used. 


(2) Alphanumeric Literals - An alphanumeric literal is any group of characters 
or spaces enclosed in apostrophes. Alphanumeric literals are never used in 
computations. The following rules apply to alphanumeric literals: 


(a) Any character may be used in forming an alphanumeric literal. Spaces 
are considered valid characters in the body of the literal. If an apostrophe 
is required within a literal, it must be indicated as two consecutive 
single apostrophes. 


(b) Alphanumeric literals must be enclosed in apostrophes. 


(c) Maximum length is eight characters, not including the identifying 
apostrophes. 


(3) Hexadecimal Literals - A hexadecimal literal consists of an X followed by a 
maximum of seven hexadecimal digits enclosed in apostrophes, 


Each hexadecimal digit represents a half byte of information (four bits). The 
hexadecimal digits and their corresponding values are: 


0 — 0000 8 — 1000 
1 — 0001 9 - 1001 
2 — 0010 A — 1010 
3 -— 0011 B — 1011 
4 — 0100 Cc — 1100 
5 — 0101 D — 1101 
6 — 0110 E — 1110 
7- 0111 F -— 1111 


Examples of hexadecimal literals and their values are as follows: 


X’D’ = 00001101 
X’101’ == =: 00000001 00000001 
X’3FFF’ = 00111111 11111111 


In all operations, an RPG generated program treats a hexadecimal literal 
according to the same rules as an alphanumeric literal. 


mw Rules 
(1) The three types of literals apply to factor 1 and factor 2. 
(2) The factor specification must be a field name or a literal. 
(3) A field name cannot exceed six characters, a numeric Ree exceed 


ten characters, an alphanumeric literal cannot exceed eight Characters, and 
a hexadecimal literal cannot exceed seven characters. 
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(4) Entries 1n factor 1 and factor 2 must be left-justified. 


(5) When a factor entry is a field name, it must be entered in Coiumns 53-54 
of the Input Format Specifications form or defined as a result field 
(Column 43-48) on the Calculation Specifications form. 


w Examples 


Figure 4—4 illustrates several types of factor entries. 
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PROGRAM = PROGRAMMER 








FORM 
TYPE 


EL 
PG, LINE FACTOR 
NO. NO. A 
1 3 5 


.1,2,3,4,5,6,7 8,9 


“3.5, 5,5,5,5,-5,5 








(1) NUMERIC LITERALS 


(2) HEXADECIMAL LITERALS 








(3) ALPHANUMERIC LITERALS 


0° 5G 





FELD 4, 


Foose @ FIELD NAME 
DEPT 
fof ff te tt 














Figure 4—4. Example of Factor 1 Entries 
4.2.4. Operation (Columns 28-32) 
m Entry 
Required. 
m Purpose 
Specify the calculations to be performed using factor 1 and igor 2. 
m Codes 


Table 4—1 shows all the operation codes. 
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OPERATION 
CATEGORY OPERATION CODE DESCRIPTION 


Add 

Zero and Add 
Subtract 
Zero and Subtract 
Multiply 

Divide 

Move Remainder 



















ARITHMETIC 






MOVE 
MOVEL 
ee 








Move 
Move Leftmost Characters 


MHLZO, MHHzOf_ | Move Zones 


TEST COMP Compare 
TESTZ Test Zone 


SET INDICATORS SETOF Set Indicators Off 
Set Indicators On 





Table Lookup 









BRANCH 





Branch 
Tag 
Exit to Subroutine 
Result Label 
User Label 


Table 4-1. Operation Codes 








4.2.4.1. 


Add (ADD) 


The ADD operation causes the contents of the field or literal specified in factor 


1 to be algebraically added to the contents of the field or literal specified in 
factor 2 and the sum to be stored in the area specified by the result field. The 


two factors involved in the ADD operation may contain only numeric data. 










10 
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aed CALCULATION SPECIFICATIONS 
PROGRAM PROGRAMMER . DATE 
CONTROL DECIMAL HALF 
LEVEL POSITIONS ADJUST 


INDICATORS RESULTING 
FACTOR OPERATION FACTOR RESULT Eas 
: HI | Lo 
. a rans i7hs 27\28 | é 

















ho Miikee eeee 
1 D.0.G, {ee eee See | 7 
DIFF, 
13) S,U,M,2 , 


es fff 


LITERALS 00438 LABELS FOX 





= 0004936 

—45 SUM1 = 0005374 
50 DOG = 0635 
CAT = 0421 

MIX = 001056 

DIFF = 001011 

SUM2 = 00488 


4.2.4.2. Zero and Add (Z-ADD) 


The Z-ADD operation causes the specified result field to be set to zeros and the 
contents of the field or literal specified by factor 2 to be added to the result 
field. Factor 1 is not involved in this operation. 
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PROGRAM PROGRAMMER DATE 
FORM CONTROL DECIMAL HALF 
TYPE eco a EL POSITIONS ADJUST 
| inoicators | |_ibicars m! NG 
o 
LINE ree 
a: OPERATION or padi [cae 
1>2 1K2 
3 "] pi2 tans 17fi8 27/28 3233 42443 ar ie 
Ei 0,1 Lt poor [SAD D057 9. 7 1 a JP OX, | Lido oto 
0,2 San toi {4 ne ol Teme EO Cet Fae Eset Z- ADD GAT, js eee ER Wa oe 3,0, E, ea 116 i Jo} 
L 0, 3, ¢C 1 it Gis j i J Jj 1 Z- ADP +, 0, 0,9, 0,0 0,000 J TOM | L 18 9 L- i L 
1 10,4 Cc ono a oo cee See) (ad En FE ce Ga) LE LY | ES ee ey ec ese eel Ges Le Coe Ls Lome Ue Ee ee eet L L. Ais 
(1) FOX(before) = 004936, FOX(after) = 000519. 
(2) CAT = 056381 
JOE(before) = 012345, JOE(after) = 056381. 
Q TOM(before) = 000569, TOM(after) = 000000. # 
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4.2.4.3. Subtract (SUB) 
































The SUB operation causes the contents of the field or literal specified in factor ead 
2 to be algebraically subtracted from the contents of the field or literal specified 
in factor 1 and the difference to be stored in the area specified by the result 
field. The two factors involved in the subtract operation may contain only 
numeric data. 
REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 
PROGRAM ra PROGRAMMER DATE 
FORM CONTROL DECIMAL HALF 
TYPE ; ae : POSITIONS | ADJUST 
[ —woicators | 
BOGIES OPERATION FACTOR RESULT 
2 FIELD 
ang sans 78 27(28 
42,1, ye! een Ce Uae Uae 
ct 2, wl 415, | eae Cee Me ae Woy IEE DB LFF, 1 
| fo 3 P/E 
Seer nie 
LITERALS 421 LABELS JOE = 824 
521 FOX = 000403 
0069830 DIFF = 476 
DOG = 0621 aid 
CAT = 0050 
PEN = 0571 


AMT = 0069354 


{ 


4.2.4.4, Zero and Subtract (Z-SUB) 


The Z-SUB operation causes the specified result field to be set to zeros and the 
contents of the field or literal specified by factor 2 to be subtracted from the re- 
sult field. Factor 1 is not involved in this operation. 


NOTE: Inthe Z-ADD and Z-SUB operations, a hyphen is required after the 
letter Z. 
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PROGRAM a = = = REeenee er rooney PROGRAMMER io DATE 
FORM CONTROL DECIMAL HALF 
TYPE | LEVEL ; : ; POSITIONS ADJUST 
INDICATORS Reset TIN Toes 
P+ ft - | 
zg Caer or OPERATION eas gor TELE 
aes aes be 
‘is rah ys 32 133 
id 4 Z,- SUBIC AT, 1 {REST 
Ze See 5 Oo yes ae ee F OX i ni 4 
- SU B)- 7? JOE 
acd Cn Ac te BO Ee a find 
ricer reer ehecens keeees ce 
CQ) CAT = +000630 
REST(before) = +000982, REST(after) = -000630. 
(2) FOX (before) = +1500, FOX (after) = -0050. 
(3) JOE (before) = +4500, JOE (after) = +0075. 
4.2.4.5. Multiply (MULT) 
The MULT operation causes the contents of the field or literal specified in factor 
1 to be algebraically multiplied by the contents of the field or literal specified in 
factor 2 and the results stored in the area specified by the result field. The two 
factors involved in the multiply operation can contain only numeric data. 
ee 


The number of decimal positions specified in Column 52 for the result field de- 
termines the number of decimal places that are retained in the product. Any ex- 
cess digits at the low order end of the results are dropped. If, at this point, the 
result is larger than 15 positions, all digits in excess of 15 are dropped from the 
high order end of the result. The following formula can be used to determine if 
the most significant positions of the result are to be truncated (no error condition 
is indicated by the RPG in this case): 


L, — Dy + Ly - Dog +D, > 15 


r- 


where: 


L, = length of factor 1 (multiplicand) (number of positions) 


D, = number of decimal positions in factor 1 
L5 = length of factor 2 (multiplier) (number of positions) 
D5 = number of decimal positions in factor 2 
Dy = number of decimal positions in the result (product) 
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“eet 
CALCULATION SPECIFICATIONS 
PROGRAM 2 = PROGRAMMER ot = DATE 
FORM CONTROL DECIMAL HALF 
TYPE LEVEL POSITIONS ADJUST 
INDICATORS pica Toes 
LINE FACTOR OPERATION FACTOR RESULT - 1 R 
NO. . i 1 2 FIELD 
D D b2 2 
3 5 plz, —aaps _a7pe 42443 a 
pes is @ phi JGAND pp PMU YT, [MEER | 1 i JP ROD, . |, 16) 0 
0 2, Cc 2) 4 on F,0.X% Lan 1s es ee MU, L, T, F,0.X,2, ses ead Tet ES | F0.X,3, L 8 3 mt 4 J 
@ CAND = 006398 ,, Developed Product = 000007895132, 
MIER = 001234, , Stored Product = 895132, 
NOTE: If the length of the result field is less than the developed 
product, digits on the left are truncated. 
(2) FOX1 = 004,63, Developed Product = 0000055 565556 
FOX2 = 012,0012 , Stored Product = 00055 ~565 
NOTE: The length of the result field and the decimal positions specified 
may cause truncation on either end or both ends of the result. 
REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS ee 
PROGRAM PROGRAMMER DATE 
FORM CONTROL DECIMAL HALF 
TYPE LEVEL POSITIONS ADJUST 


INDICATORS INDICATORS 






FACTOR FACTOR 


2 


OPERATION 








HOURS, | tes Ee 


5,1,2,-,4,2,1,6 


aa 32,5 


ad Mo Bal a as ed Le 


MULT, R ATE, Peo be 











tof 





Q) GROSS = 0156,32 , Developed Product Tax Plus Rounding 
Multiplier = 14,5 , Factor = 022266645 
, Stored Product = 2266 A64 


NOTE: The product will be half adjusted and the positions to the right of 
the number of decimal positions specified are dropped. 


(2) HOURS — = 048,25 __, Developed Product 107A718125 
Multiplier = 2A2325 , Rounded Product 1074723125 Fa 
, Stored Product 0107A72 


(3) Multiplicand = 5124216 , Developed Product = 632615210496 
RATE = 1,23456 , Rounded Product = 632 A615710496 . 
, Stored Product - 00632,A615 oad 
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4.2.4.6. Divide (DIV) 


The DIV operation causes the contents of the field or literal specified in factor 1 
to be algebraically divided by the contents of the field or literal specified in 
factor 2 and the quotient to be stored in the area specified by the result field. 
The two factors involved in the divide operation may contain only numeric data. 
The remainder, if any, from the DIV operation is lost unless a move remainder 
(MR) operation is specified on the following line. Factor 2 (divisor) must not be 
equal to zero. 


To determine the highest number of positions (or decimal positions) available in 
any of the DIV factors, the programmer may apply the following formulas. These 
formulas can be applied to check in advance whether the field lengths to be used 
are such that a given division can be performed. As in the MULT operation, a 
maximum of 15 positions are available. 


(1) Ly + Dy — Dy - D, < 15 
(2) Ly — Dy + Dy + D, < 15, if not half adjusted 


IA 


(3) Ly = Dy + D5. +-D; < 14, if half adjusted 


where: 
Ly = length of factor 1 (dividend) (number of positions) 
D, = number of decimal positions in factor 1 
Ly = length of factor 2 (divisor) (number of positions) 
Dy = number of decimal positions in factor 2 
D_ = number of decimal positions in the result (quotient) 


The number of decimal positions in the dividend, divisor, and quotient of a per- 
tinent division should satisfy the following conditions: 
A =D, — Dy + Do = 0 


If this condition is not satisfied, either the dividend or the divisor is adjusted 
(padded) by adding zeros to the right, depending on the following conditions: 


adjust or pad the dividend 


A 0 
A 0 adjust or pad the divisor 


> 
< 
The number of zeros added is equal to the absolute value of A. 


NOTE: The dividend value of a division may be zero, but a divisor of zero is 
not permitted. If a divisor of zero is used, the object program is termi- 
nated immediately. 
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4.2.4.7. Move Remainder (MVR) 


The MVR operation causes the remainder of a division (DIV) operation to be 
moved into the result field after resetting the result field to zero. The remainder 
is aligned to the implied decimal point. The MVR operation, if performed, must 
immediately follow the pertinent DIV operation, and is meaningful only if the 
quotient of this preceding divide operation was not half adjusted. The MVR line 
must contain all control level and indicator conditions (Columns 7-17) estab- 
lished for the preceding divide operation. A higher control level may be specified. 
Both the DIV and associated MVR operations must be executed at either detail or 
total time. Factor 1 and factor 2 cannot be specified with an MVR operation, The 
result field of an MVR operation must be numeric. The remainder is defined as 
follows: 


Remainder = Dividend — (Divisor x Quotient) 


The following examples illustrate various decimal point settings for the dividend 
and divisor, and the resulting quotient and remainder, as specified by the field 
length and decimal positions on the Calculation Specifications form. 
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PROGRAM 2 PROGRAMMER: DATE: 


FORM CONTROL DECIMAL HALF 
YPE ieee POSITIONS 





PACron OPERATION 


ae 14 4s 























Q) Given a dividend QTY equal to 461., to be divided by the literal 26. We 
wish to produce a quotient of 5 positions with 2 decimal places and a 
remainder of 5 positions with 3 decimal places. 
461.+26., = QUOT 017.73, REM 00.020 


Q) Given the literal 123.456 to be divided by PERCT, which is equal to 12.3 , 
we wish to produce a quotient of 6 positions with 3 decimal places and a re- 
mainder of 4 positions with 3 decimal places. 


123.456+12.3, = QUOT 10.037, REM 0.109 
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The following can be used to determine the number of positions to the right and 
— left of the decimal point in the dividend, divisor, quotient and remainder. 


FACTOR 1 FACTOR 2 RESULT REMAINDER (MVR) 


Decimal Point Decimal APoint Decimal APoint 



















Decimal APoint 


DIVIDEND DIVISOR QUOTIENT REMAINDER 
where: 
I, = Positions to the left of the decimal point in factor 1 
I, = Positions to the left of the decimal point in factor 2 
Ig = Positions to the left of the decimal point in quotient 
Q ae ene 
Ip = Positions to the left of the decimal point in remainder 


D, = Positions to the right of the decimal point in factor 1 
Dy = Positions to the right of the decimal point in factor 2 
Do = Positions to the right of the decimal point in quotient 
Dp = Positions to the right of the decimal point in remainder 


The maximum number of significant positions to the left of the decimal point in 
the quotient result Ig) is determined by the following: 


— Ig = I; + Dy 


The maximum number of significant positions to the right of the decimal point in 
the remainder (Dp) can be determined by the following: 


or 


4.2.4.8. Move (MOVE) 


The MOVE operation causes the contents of the field or literal specified in factor 
2 to be stored right-justified in the area specified in the result field. Factor 1 is 
not involved in this operation. The contents of the field or literal specified in 
factor 2 may be numeric or alphanumeric data. The MOVE operation operates ac- 
cording to the following rules: 


(1) If the field or literal specified in factor 2 is shorter than the area specified 
in the result field, factor 2 is moved to the rightmost pcsitions of the result 
field. The leftmost positions of the result field located beyond the length of 
factor 2 are undisturbed. Z 


(2) If the field or literal specified in factor 2 is longer than the area specified in 
the result field, factor 2 is left truncated and the excess characters of factor 
ee 2 are disregarded. 
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(3) A numeric field may be moved to an alphanumeric field and vice versa. This 


(4) 


(S) 


may be used for unpacking and packing data. 


When an alphanumeric field is moved into a numeric field, 


numeric field i 


s automatically checked and, if necessary. 


the sign of the 
corrected to a valid 


UNIVAC 9400 sign. The correction made depends on the mode of compilation 
selected in the RPG control card (see Appendix E). 


For 9400 mode programs, signs 64¢ and By¢ are changed to Dig: Dye is un- 
changed, and all other signs are changed to C16: 


For 9200/9300 mode programs, no checking or correction is done. Extreme 


care should be observed when moving data from an alphanumeric to a numeric 


field. 


For IBM 360 Model 20 mode programs, signs Cy¢ through Fy¢ are unchanged. 


sign 616 is changed to Di6 if the accompanying digit is O16: and all other 


signs (including 6;¢ with other digits) are changed to Cy¢. 


Resulting indicators can be specified on a MOVE operation. For an alpha- 


numeric result field, only a blank indicator (columns 58 and 59) is meaningful. 
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DECIMAL -. HALE 
FOSITIONS ADIUS 
Soy) Coa Gee eee 74 RES 
INDI 
OPERATION FACTOR RESULT FIELD met FACTOR RESULT FIELD 
2 FIELD LENGTH HT , BEFORE MOVE 
42 443 48149 53 [54 q 
reece mee FOX Ele 2) 0/2 123498 AAAAAAAAAA 
i PER, "6h ar 98 BBBBBB 
ee (a 2 ee si Meeasig: AMT, Vet gee? 3 eal 6234 | Ccccc 
NO Reg gow JAM are let La 62341 DDDDD 
AB COEF, NUM 8(0| ||) ABCDEF 99999999 
© MOVE 123.456), (CAT ft, 3/0] 1 | yoguse FEE 
® Paw MOVE: LP on J 2, Se eis nae Piel the Oe asa dot 123456 Lltrretet 
gala ey BCDEF’, , SAME 1. oS) Ll. ABCDEF 222222 
@s MOVE INO a AGP LOL | 6 g9123u58 3333333333 


RESULT FIELD 
AFTER MOVE 

AAAA123498 
BBBBQ8 
62341 
62341 
99123456 
U56 
11123456 
ABCDEF 
339912345F 


Lines 1, 2,5, 7, 9 — If the receiving area (RESULT) is larger than length of 
factor 2, the excess leftmost positions of result are unchanged. 


Line 3 


-- Decimal positions are not aligned during the MOV fp operation. 


Line 5 — Packing data— zones (except the least significant zone} are stripped 


off. 
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Line 6 — If the receiving area is smaller than the length of factor 2, trunca- 


tion takes place to the left. 


Line 9 — Unpacking data--zones are restored to the result except the least 
significant zone; this receives the same zone as the original 


position. 


4.2.4.9. Move Leftmost Characters (MOVEL) 


The MOVEL operation causes the contents of the field or literal specified in 
factor 2 to be moved into the specified result field, left-justified. The rules for 


the MOVEL operation are as follows: 


(1) The MOVEL operation does not use factor 1 or half adjust. 


(2) Both alphanumeric and numeric data may be moved into either type field. If 
alphanumeric data is moved into numeric field, then all zones are stripped 
off except the rightmost zone position. Decimal alignment is not performed. 


(3) Sign checking is performed during this operation (see Rule 4 in 4.2.4.8). 


(4) Field length and decimal positions specifications (if result field is numeric) 
are required in this operation if they have not been defined in the program for 


the result field. 


Examples of the results of the MOVEL operation are illustrated in Figure 4—5. 
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DECIMAL HALF 

POSITIONS N 
OPERATION FACTOR RESULT H+ EActoR RESULT FIELD 
we 2 BEFORE MOVE 
23456 88888888 











2345678 33333 


23456 AAAAAAA 

















2345678 nines 





fot of fd 











ited hacked MOA af acta fatale HERE AAAAAAA 


Figure 4-5. Examples of MOVEL Operation 


RESULT FIELD 
AFTER MOVE 


2345688 


23456 


23456AA 


23456 


HEREAA 
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(1) If the result field is longer than factor 2, the excess (righthand) position of 
the result field remains untouched (see Figure 4-5, line 1). 


(2) If the result field is shorter than factor 2, the excess (righthand) positions of 
factor 2 are not moved (see line 2). 


(3) If the factor 2 is shorter than the (numeric) result field, then the sign of factor 
2 is not moved (see line 1). 


(4) If factor 2 is equal to or longer than the (numeric) result field, then the sign 
of factor 2 is moved into the rightmost position of the result field (see line 2). 


5) If a numeric factor 2 field is moved into an alphanumeric result field that is 
P 
equal to or longer than factor 2, then the sign of factor 2 is moved into the 
position containing the rightmost position of factor 2 (see line 3). 


(6) If an alphanumeric result field is shorter than the numeric factor 2 field, then 
the sign is not moved and is lost (see line 4). 


(7) Resulting indicators can be specified on a MOVEL operation. For 
an alphanumeric result field, only a blank indicator (columns 58 and 59) 
is meaningful. 


4.2.4.10. Move Zone 


The move zone operation causes the zone portion of the specified position, 

either low order (L) or high order (H), of the field indicated in factor 2 to be 

moved to the specified position, either low order (L) or high order (H), of the ae 
result field. The zone position of a numeric field is the sign, and is in the right- 

most position of the field. Factor 1 and resulting indicators cannot be specified 

in any of the move zone operations. 


4.2.4.10.1. Move Low to Low (MLLZO) 


The zone located at the least significant position of factor 2 is moved to the 
least significant position of the result field. Factor 2 and the result field can 
be either numeric or alphanumeric. 


FACTOR 2 RESULT 
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PROGRAM PROGRAMMER DATE 
FORM CONTROL DECIMAL HALF 
TYPE CEVEL POSITIONS ADJUST 


a RESULTING 
INDICATORS =e ae 


FACTOR OPERATION FACTOR RESULT 
A A 1 2 FIELD 
N N 
D D 


1Yi2 14ft5 17 |18 
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When factor 2 is alphanumeric and the result field is numeric, the sign of the 
result is automatically checked and corrected, if necessary, to a valid UNIVAC 
9400 sign. The correction made depends on the mode of compilation selected in 
the RPG control card (see Appendix E). 


For 9400 mode programs, signs 6,6 and By6 are changed to Dyg¢, Dy¢ is un- 
changed, and all other signs are changed to Cy¢. 


For 9200/9300 mode programs, signs 616 and 916 are changed to Dig A16 
through F y gare unchanged, and all other signs are changed to Cy¢. 


For IBM 360 Model 20 mode programs, signs C;¢ through F)¢ are unchanged, 
Sign 646 is changed to Dy¢ if the accompanying digit is 016, and all other 
Signs (including 616 with other digits) are changed to C16: 


Move Low to High (MLHZO) 


The zone located at the least significant position of factor 2 is moved to the 
most significant position of the result field. Factor 2 can be either numeric or 
alphanumeric, but the result field can only be alphanumeric, 


FACTOR 2 RESULT 
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PROGRAMMER DATE 











CONTROL DECIMAL HALF 
LEVEL POSITIONS ADJUST 


INDICATORS RESULTING. 
p+ | - | 


FACTOR OPERATION FACTOR RESULT 
A A 1 
N N 
o D 


Wiz T4fis W718 
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4.2.4.10.3. Move High to Low (MHL ZO) 


The zone located at the most significant position of factor 2 is moved to the ds 
least significant position of the result field. Factor 2 can only be alphanumeric 

while the result field can be either numeric or alphanumeric. Sign checking is 

performed during this operation (see 4.2.4.10.1). 


FACTOR 2 RESULT 





REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 








PROGRAM ee a PROGRAMMER | er DATE 
FORM CONTROL DECIMAL HALF 
TYPE LEVEL POSITIONS ADJUST 





RESUL TING 
INDICATORS 
=a 


OPERATION ota RESULT COMPARE 


i 
FIELD Ht Lo 
2 | 12 
ss ise 
fu 








4.2.4.10.4. Move High to High (MHHZO) 


The zone located at the most significant position of factor 2 is moved to the 
most significant position of the result field. Factor 2 and the result field must nes} 
be alphanumeric. 


FACTOR 2 RESULT 
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4.2.4.11. Compare (COMP) 


The COMP operation causes the contents of the field or literal specified in 
factor 1 to be compared with the contents of the field or literal specified in 
factor 2. An indicator is turned on as specified in the resulting indicators 
specification. All numeric comparisons are algebraic; positive numbers and 
zero are treated as greater than negative numbers regardless of their bit con- 
figuration in storage. The specified indicator is turned on under the following 
conditions: 


(1) If factor 1 is greater than factor 2, the indicator specified as HIGH is 
turned on. 


(2) If factor 1 is less than factor 2, the indicator specified as LOW is turned on. 


(3) If factor 1 is equal to factor 2, the indicator specified as EQUAL is turned 
on, 


A result field is not specified in a compare operation. The purpose of the com- 
pare operation is to turn on an indicator which can be used to modify subsequent 
calculations. Procedures of the COMP operation include the following: 


(1) The maximum field length for alphanumeric fields involved in compare 
operations is 256 characters; for numeric fields, maximum length is 
15 digits. 


(2) In a comparison of numeric fields, the two factors are aligned according to 
ed their implied decimal points before the comparison is executed. 


(3) When numeric fields in a compare operation are of unequal length, the missing 
digits of the shorter field are assumed to be zeros. 


(4) When alphanumeric fields in a COMP operation are of unequal length, the 
fields are aligned to their leftmost character, and missing characters are 
assumed to be blank. 


(5) All numeric comparisons are algebraic. If a comparison of the absolute values 
of numeric fields is desired, it can be done by means of a user-coded RPG 
routine. 
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w Example — Absolute Comparisons 
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4,2.4.12. Test Zone (TESTZ) 





This operation is used to test the high order zone position of the alphanumeric 
field entered in the result field. One of the resulting indicators is turned on de- 
pending on the test results. The resulting indicators may be used to condition 

secaueat calculations and/or output operations. 


(1) If the result of the test is a 12-zone (&, A through I, plus zero) the indicator 
specified in Columns 54-55 is turned on. 


(2) If the result of the test is an 11-zone (—, J through R, minus zero), the in- 
dicator specified in Columns 56-57 is turned on. 


(3) Any other zone turns on the indicator specified in Columns 58-59. 
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If the 9200/9300 mode of compilation is selected in the RPG control card 
(Column 7), the TEST Z operation cannot be used. 


4.2.4.13. Set Indicators Off (SETOF) 


This operation causes the indicators specified to be placed in the off condition. 
A maximum of three indicators may be specified in Columns 54-55, and 58-59. 
The headings of Columns 54-59 have no relation to the indicators specified in 
these columns by the SETOF operation. The SETOF operation may be used to 
turn off any RPG indicators. It also may be made a conditional statement 
through the use of control levels and indicators. 


4.2.4.14. Set Indicators On (SETON) 


This operation causes the indicators specified to be placed in the on condition. 
A maximum of three indicators may be specified in Columns 54-55, 56-57, and 
58-59. The headings of Columns 54-59 have no relation to the indicators speci- 
fied in these columns by the SETON operation. The SETON operation may be 
used to set any RPG indicators. It may also be made a conditional statement 
through the use of control levels and indicators. 
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qa) Indicators 10, 11, and 25 are turned OFF by this line of coding. 
@) Indicators 20 and 21 are turned OFF only if indicator 16 is on. 
GB) Indicator 13 is turned ON by this line of coding. ¥ 

@) Indicator 75 is turned ON only if both indicator 23 and 28 are on. 
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Table Lookup (LOKUP) 


The LOKUP causes the RPG to search a table in storage and secure from it 
specific data needed in subsequent calculations. The LOKUP operation is 

used in conjunction with the File Extension Specifications form and is described 
in complete detail in Section 8. 


Branch (GOTO) 


The GOTO statement causes the RPG to transfer control to some operation other 
than the next in sequence. This operation may be used as either a conditional 
or an unconditional branch operation. The line or operation to which RPG con- 
trol is transferred must be a tag line followed by the calculation or subroutine 
to be performed. This operation enables the programmer to address and write 
subroutines, to incorporate loops of iterative coding, and to bypass segments of 
undesired coding. 


The rules for the GOTO operation are as follows: 
General: 


(1) A control level entry (LO-L9) must be specified when a GOTO statement is 
used in total calculations. 


(2) A control level entry (LO-L9) must be specified in Columns 7-8 of the tag 
line of the total calculation operation. 


Unconditional GOTO Statements: 


(3) The mnemonic GOTO must be entered in Columns 28-31 of the operation 
field and a name, the transfer address, in factor 2; all other columns with 
the possible exception of control level must be blank. 


(4) The name in factor 2 must be unique and may consist of one through six 
alphanumeric characters. 


(5) The first character of the name must be alphabetic and left-justified; em- 
bedded blanks may not be used. 


Conditional GOTO Statements: 


(6) The GOTO must be entered in Columns 28-31 of the operation field, a name 
in factor 2, a maximum of three indicators in Columns 9-17, and a control 
level entry may be present in Columns 7 and 8. All other columns must be 
left blank. 


(7) The name specified in factor 2 is the address to which control is transferred 
if the conditions indicated in Columns 9-17 are satisfied 


Figure 4-6 illustrates various entries for the GOTO operationgNote that the tag 
line must contain the following: 
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SECTION: 


(1) Factor 1 (Columns 18-27) is the nane of the routine as specified by the 
GOTO statement. 


(2) Operation field (Columns 28-32) must be the constant TAG left-justified. 
REPORT PROGRAM GENERATOR 
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Figure 4~6. Examples of GOTO Operations 
The GOTO statement in line 01 transfers control unconditionally to the tag 
line (ISSUE) in line 06. 
When indicators 17 and 14 are on, the GOTO statement in line 09 will transfer 
control to the ORDER line (02). If both indicators are not on, the next sequential 
operation will be executed. In this example it is the ONHAND coding. This 
operation is also the last of the detail calculations. 
If L1 and indicator 12 are on and indicator 10 is not on at total time, control 
will be transferred by the GOTO statement in line 17 to ADDUP. 
4,2.4.16.1. Detail-to-Total Branch 


RPG permits a branch from detail calculations to total calculations. This 
causes the program to repeat certain specifications, causing a detail-to-total 


loop. A detail-to-total loop allows the programmer to put out one or more 
total lines for each input record. 


The detail-to-total loop is accomplished by the specification GOTO in detail 
calculations and TAG in total calculations. An indicator @nditions the GOTO 
specification and is set on to initiate the branch. 
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SECTION: 


The detail-to-total loop includes the following processing: 


(1) Detail calculations, which may include a GOTO 
(2) Total calculations 

(3) Total output 

(4) Move data in current input record to data fields 
(5) Return to detail calculations (1) 

Note that: 


(1) Unless the GOTO is conditioned by indicators that are reset by the 
programmer when the loop is to be ended, the loop may be repeated in- 
definitely with no new input data being read. 


(2) Data fields for the record type are reinitialized from the input record 
during each cycle through the loop. Therefore, if the programmer wishes to 
change data field values and keep their new contents, the new contents 
should be moved during the detail or total calculations to a different 
field which is not reinitialized. Such a field may be specially defined for 
this purpose in the Calculation Specifications. 


Tag (TAG) 


The operation TAG provides a name to which the program can branch. The name 
is entered in factor 1 and TAG in the operation field. The TAG entry has been = 
further defined in 4.2.4.16. 


Exit to Subroutine (EXIT) 


This EXIT operation enables the programmer to transfer control from the RPG 
program to a user subroutine. A subroutine of this type may compute such things 
as trigonometric functions or logarithms. The subroutine, written in assembler 
language, COBOL, FORTRAN, or RPG, is performed and control is transferred 
back to the main program. 


EXIT is placed in the operation field and the name of the entry point of the sub- 
routine is entered in factor 2. The name of the subroutine cannot exceed 6 alpha- 
numeric characters left-justified; the first character must be alphabetic. The 
EXIT operation can be a conditional operation by specifying a control level or 
indicators (Columns 7-17). If indicators are not used, the EXIT occurs every 
time the detail calculations are performed. 


The user may specify an EXIT operation anywhere in the program. The following 
facts should be noted regarding the placement of the EXIT operation in four 
specific positions. 


(1) If the EXIT operation is the first detail calculation, contol is transferred 
to the indicated subroutine after an input record is read into the system. 
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(2) If the EXIT operation is the last detail calculation, control is transferred to 
the indicated subroutine prior to printing or punching heading and detail 
records. 


(3) If the EXIT operation is the first total calculation, control is transferred 
to the indicated subroutine after the input record has been identified and the 
control field has been tested. 


(4) If the EXIT operation is the last total calculation, control is transferred to 
the indicated subroutine prior to printing or punching totals. 


Figure 4-7 shows an example of the EXIT operation usage and format. 


REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 








PROGRAM a PROGRAMMER DATE_. PAGE oF PAGES 
FORM CONTROL DECIMAL HALE 
TYPE LEVEL POSITIONS ADJUST 





INDICATORS 


FACTOR OPERATION FACTOR : NTiFicat 
1 COMMENTS IDENTIFICATION 


D 
wiz ahs 80 


fe pete oft feta gt 


THE pp 








1 1S, 1O,N, L Y, CHARACTERS ag bed He Senay Sn Kem Ec oe HE ELE 











Figure 4—7. Format of EXIT Operation 


4.2.4.19. Result Label (RLABL) 


The RLABL statement is used to provide result field and indicator linkage be- 
ra tween the RPG program and a subroutine. It allows the subroutine to process 
data generated in the RPG program and to return it for further processing. (The 
RLABL statement is similar to the ENTRY assembler directive.) 


RLABL is placed in the operation field and the name of the field is indicated in 
the result field. The name of the field cannot exceed six alphanumeric characters. 
The first character must be alphabetic and must be left-justified. 


Figures 4-8 and 4-9 illustrate RLABL formats with field defined and field not 
defined elsewhere. 
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Figure 4—8. Format of RLABL Operation, Field Not Defined Elsewhere 
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Figure 4-9, Format of RLABL Operation, Field Defined Elsewhere 


If the condition of RPG result indicators must be known in a subroutine, then 
they must be defined in the RLABL statement. An entry in Columns 43-46 of the 
result field consists of the letters IN followed by the indicator number or letters 


Figure 4-10 illustrates the entry for an indicator definition in an RLABL state- 
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Figure 4—10. Result Label Statement Indicator Definitions 


The following are general rules when using RLABL: 
(1) Columns 7-27, 33-42, and 53-59 must be blank. 


(2) Field length (Columns 49-51) and decimal positions (Column 52) must be 
specified if the result field has not been defined elsewhere in the program. 
If the field has been defined in the Input Format Specifications form or on 
the Calculation Specifications form (as a result field), then the field length 
and decimal position entries may be left blank. 


(3) A field name used in a TAG statement must not be used in a subroutine. 
Therefore, an RLABL statement must not contain a name used in a tag line. 


(4) Each resulting indicator defined in an RLABL statement must be used in at 
least one other RPG operation. The subroutine may refer to the indicator as 
the data located at INxx. A name or indicator used in an RLABL statement 
may be used in several routines. 


(5) RLABL statements may be specified on any line on the Calculation Specifi- 
cations form. 
7 


NOTE: The hexadecimal representation of indicator conditions is FQ for on and 
00 for off. For example, a Compare Immediate instruction (in the as- 
sembler language) would use the hexadecimal representation of FO or 
the eight bits of 11110000 to test for an on condition of an indicator. 
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SECTION: 


4.2.4.20. User Label (ULABL) 


The ULABL statement enables the RPG program to reference a field contained 
in a user subroutine. The name of the field is entered in the result field (left 
justified). The name may not exceed six alphanumeric characters and the first 
character must be alphabetic. The field length and decimal position must be de- 
fined. Indicators, factor 1, and factor 2 should not be used. 


4.2.4.20.1. Coding of Subroutines 


Figure 4-11 illustrates the coding necessary for an RPG porgram and an associ- 
ated subroutine that uses SUBA and SUBC fields as defined in the RPG pro- 
gram. For more detailed information on the coding of subroutines, see Appendix 
G. 


The number of user subroutines and user labels permitted in a program is 
limited; the maximum number depends on the types of input and output files 
used in the program, the number of label processing exits specified (see 
2.2.19), and the presence or absence of an ALTSEQ subroutine (see Appendix 
G3). For most programs, the maximum number is 200. 
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Figure 4-11. Sample Coding RPG and Associated Subroutine 


32 


UP-7707 















4.2.5. 


w Entry 


UNIVAC 9400 
REPORT PROGRAM GENERATOR 


Result Field (Columns 43-48) 


As required by the operation. 


m Purpose 


4 


SECTION: 


Sets up the storage area where the result of a calculation will be stored. 


m Rules 


(1) The name of the result field may be alphanumeric, but the first character 
must be alphabetic. Embedded spaces are not allowed. 






(2) The field name may contain up to six characters and must be left-justified. 


(3) The sign for arithmetic fields is always stored in the units position of the 


result field. 


(4) The same field name may be used more than once in different calculations 
if the length of the field and the number of decimal locations are the same. 


(5) The date in the Supervisor may be accessed by the name DATE which is 
automatically defined by RPG as a six-position alphanumeric field. 


a Examples 


Figure 4-12 shows examples of result field entries. 
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Figure 4-12. Example 


4.2.6. Field Length (Columns 49-51) 


mw Entry 
Optional 


a Purpose 


of Result Field Entries 





I 





+ 


Specifies the number of storage positions to be reserved for the contents of the 


result field. 
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w Rules 


(1) The maximum field lengths for RPG operations are as follows: 


decimal fields — 15 digits 
alphanumeric fields — 256 characters 


(2) If the same field name is specified more than once, the field length and 
decimal position specifications need not be repeated. 


(3) If a decimal result generated is larger than the specified result field, the 
result is aligned on the decimal point and is truncated to fit the field. 


Truncation may occur on either or both ends of the number. 


NOTE: When the half adjust specification is used, the field length entry refers 
to the length of the result field after half adjustment. 


uw Examples 
Figure 4-13 shows examples of field length. 


4.2.7. Decimal Position (Column 52) 


w Entry 
Optional. 
m Purpose eacoot 


Indicates the number of decimal places required in the result fieid (the decimal 
alignment of input fields is specified on the Input Format Specifications form). 


a Rules 
(1) An entry must be made in this field for all arithmetic operations, if not pre- 
viously defined. When the result field of an arithmetic calculation has no 
fractional positions, a zero must be entered. 


(2) A maximum of nine decimal places may be specified. 


(3) Decimal alignment for calculated numeric results is automatically handled 
by the RPG. 


(4) When the result field is alphanumeric, the decimal position field must remain 
blank. 


a Examples 


Figure 4-13 shows examples of decimal position specifications. f 
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4.2.8. Half Adjust (Column 53) 








a Entry 
Optional. 
m Purpose 
Causes the contents of the result field to be rounded. The digit 5 is added to the 
position immediately to the right of the last decimal position retained in the 
result field. 
mw Code 
H — Half adjust takes place only when this code is entered in the half adjust 
field. 
~m@ Rule 
This specification must be blank for all alphanumeric fields. 
m Examples 
Figure 4-13 shows examples of half adjust. 
REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 
= PROGRAM a ee ae PROGRAMMER DATE 
FORM CONTROL DECIMAL HALF 
TYPE LEVEL POSITIONS ou 


FACTOR OPERATION FACTOR 
1 


























Figure 4—13,. Field Length, Decimal Positions, and Half Adjust 


@) The operand labeled DOG is specified as 6 numeric positions in length with 2 


decimal places. 


Q) The operand labeled COW is specified as 10 numeric positions in length with 


no decimal places. ¥ 


GB) The operand labeled SUM is specified as 15 numeric positions in length with 2 


decimal places. 
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(4) The operand labeled GROS is specified as 8 numeric positions in length with 2 
decimal places remaining in the rounded result. 


6) The operand labeled ALPH is specified as 25 alphanumeric positions. 


4.2.9. Resulting Indicators (Columns 54-59) 


mw Entry 
Optional. 
m Purpose 


This specification allows testing the value of a result field after the operation is 
completed. Based on the results of this test, an indicator may be turned on and 
used to control subsequent calculations and output operations. The resulting 
indicators specification may be used as follows: 


(1) To test whether the result of an arithmetic operation is plus, minus, or zero, 
and to turn on the specified indicator. 


(2) To test the result of a compare operation and to set the associated indicators 
according to the following: 


Factor 1>F actor 2---Set HI indicator (Columns 54-55) 
Factor 1<Factor 2---Set LO indicator (Columns 56-57) 
Factor 1=Factor 2---Set EQ indicator (Columns 58-59) 


When a resulting indicator is specified and the operation with which it is 
associated is executed, the indicator is set if its condition is met; it is reset 
if the condition is not met. 


(3) To define the type of LOKUP operation to determine whether the table is 
searched for an entry next higher, next lower, or equal to, the search argument 
specified is factor 1 (see Section 8). 


(4) To define what type of zone is to be tested in a TESTZ operation. 


(5) To define which indicators are to be turned off or on in a SETOF and SETON 
operation. 


a Codes 


01-99, HO-H9 - May be used for all arithmetic operations, compare, TESTZ, and 
LOKUP operations. 


00-99, HO-H9, LO-L9, MR, OA, OB, OC, OD, OE, OF, OG, and OV - May be 
specified for SETON and SETOF operations. 


< 


a 
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gm Rules 


(1) More than one indicator may be on at any given time. 


(2) A resulting indicator (01-99) may be defined more than once on the form. 
Any subsequent redefining of a resulting indicator may alter the indicator 
setting. If it is not redefined, the indicator is not altered until that calcu- 
lation line is executed again. 


NOTE: The term defining as used in conjunction with indicators refers to the 
setting of an indicator to its on or off condition. During calculation, in- 
dicators are defined in the resulting indicators specification. Indicators 
are al: . defined on the Input Format Specifications form under the 
record indicator specification to identify the input card type and under 
field indicators to record the status of a field (plus, minus, zero, or 
blank). All other references to indicators on the various specification 
forms test the specified indicators to determine their status, but the in- 
dicator is not altered. This includes the indicators specification (Columns 
9-17) on the Calculation Specifications form which controls the execution 
of a calculation, and the output indicators specification of the Output 
Format Specifications form which controls the execution of output opera- 
tions. 


(3) Resulting indicators are not permitted with the move zone operation. 


(4) Resulting indicators are not permitted with any of the branch and exit opera- 
tions. 


4.2.10. Comments (Columns 60-74) 
gw Entry 
Optional. 
m Purpose 
The comments field is not required by the program. However, the programmer 


may enter any useful remarks that will be of assistance in program checking 
and testing. 
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w Example 
































































































































— 
Figure 4-14 illustrates this entry. 
REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 
PROGRAM PROGRAMMER DATE PAGE OF PAGES 
CONEROL. DECIMAL HALF 
POSITIONS ADJUST 
| norcators | RBICATORS 
fine sans whe 27328 a 7 
MULT, |+,3,. 62,5, A {C,0,MP,U,T,E, AF CA 
4 fee er ae ae Eee ee Ee ae Poh bat ot i ok 
vb 8y COMPUTE, TAX, i 
Pe ae Kaa Rn ees SE Ee eal oe Aiea ts 2 
fos 2 Aft ft tt kt td 
JGR,0S/S, Pep} all 4 Fé NET, PAY, | ieee ee Deze Deo Lemme 
Figure 4—14. Comments Entry 
4.3. EXAMPLE—COMPLETED CALCULATION SPECIFICATIONS FORM 
Figure 4-15 is an example of a completed Calculation Specifications form. 
Assume that FIELDA through FIELDN have been defined on the Input Format Speci- 
fications form as follows: FIELDN is alphanumeric; all others are numeric; FIELDA, 
FIELDB, and FIELDC each have three decimal places. 
REPORT PROGRAM GENERATOR . 
CALCULATION SPECIFICATIONS 
PROGRAMMER DATE 
DECIMAL HALF 
POSITIONS ADJUST 
| RESULTING | TING 
ERA | TO! = 
CASTOR OPERATION FACTOR RESULT cara 
Poe 
S3 |54 
FIELD B, NL _@ 
Fit FE, t,D, 1, WEL, Dd ® 
@ 
| ae een) esl ne Yee! 
FELD WH, © 
[ELE LDS, APEC OK © 
Tae Weal Et ee i A. on eee el b 
Fie, LDL, pan aes = 4,8,0,0,0, oO, g eames Neva ® 
a on oe 3 sa 
® 
sa | ot 





Figure 4-15. Example of a Completed Calculation Specifications Form 
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FIELDA is added to FIELDB, and the result is stored in FIELD1 (defined as 
eight numeric positions with two decimal places). The H entry in Column 53 
specifies half adjustment of the answer. The zero resulting indicator is used to 
set indicator 65 when the result of the addition is zero. 


This calculation is performed only if indicator 65 is not set (previous result not 
zero). FIELDC is added to FIELD1, and the result is stored in FIELD1. Field 
length and decimal positions are not defined for FIELD1 because it is not neces- 
sary to repeat them. However, the H entry is repeated to specify half adjustment. 
(FIELDC has three decimal places.) 


FIELDE is subtracted from FIELDD, and the difference is stored in FIELD3. 
Indicators 98 and 99 are set when the result is negative or zero, respectively. 


FIELDF is stored with reversed sign in FIELDG, as defined on the Input Format 
Specifications form. 


FIELDH is multiplied by the numeric literal 3625, and the result is stored in 
FIELD4, containing three decimal places. 


FIELD] is divided by FIELDK and the result is stored in FIELD5. Note re- 
quired entry of zero decimal places. 


FIELDL is compared to the literal 480000. If FIELDL is algebraically greater 
than or equal to 480000, indicator 75 is set. 


A numeric field is moved from FIELDM to FIELD6. 


An alphanumeric field is moved from FIELDN to FIELD7. (No entry in the decimal 
positions specification indicates an alphanumeric field.) 
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5. OUTPUT FORMAT 
SPECIFICATIONS FORM 


5.1. GENERAL DESCRIPTION 


The Output Format Specifications form (Figure 5-1) defines the types of output which 
are to be produced on the printer, punch, disc, or tape units, and also specifies the 
location of the data fields in the output reports and records, The specifications for 
this form are divided into the following two areas: 


a File Identification and Control 


ie7r, The file identification and control specifications (Columns 7-31) identify the 
printed reports, tapes, discs, and punch card files that are to be produced, The 
specifications govern the spacing on printed reports and stacker selection of cards 
processed through the punch. This section also controls the conditions under which 
the various outputs are to be produced. 


a Field Description 


The field description specifications (Columns 23-70) define the location of each 
individual field within an output file and the controlling conditions under which 
output fields are printed, punched, or written on tape or disc. Each file identifi- 
cation line entered on the Output Format Specifications form is followed by one 
field description line for each output field. 


Note that the output indicator specification appliesto both file identification and 
field description. This facility permits selective control of each individual field 
within a file aswell as selective contro] of files. 
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FILE IDENTIFICATION 1 
AND CONTROL 





























Figure 5—1. Output Format Specifications Form 


— Specification Order 


The sequence of entries for a given file (described in Figure 5-2) are as 

follows. The normal occurrence of events governs the sequence in which output 

specifications are written, The specifications for a typical printed report must 

list the information for headings first, followed by the specifications for 

the detail lines, and finally the required specifications for all control levels. 

Files must be listed in the order in which they are to be produced. All informa- 

tion pertinent to the output operation indicated by a file identification line must 

be listed with that line. This entry must specify stacker selection on the punch, 

or spacing or skipping on the printer, and must be followed by successive lines — 
describing the fields involvedin the output operation. 


— Output Unit Specification 


Since the output unit applicable to each file is specified on the File Description 
form, it is not necessary to indicate it on the Output Format Specifications form. 
Each output file is named on the output form, and is related through this name 
to its specific output unit. 
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Figure 5-2. Sequence of File Entries 


5.2. FILE IDENTIFICATION AND CONTROL FORM ENTRIES 


The following descriptions explain the file identification and control portion of the 
Output Specifications form. 


5.2.1. File Name (Columns 7-14) 


m Entry 
Required (except as described in Rule 3). 
a Purpose 


Assigns a name to each output file. A file name must be entered on the 
specification form for each different output file involved in the printing, 
punching, disc, and tape operations specified on the File Description 
form. Consequently, one file name would be assigned to the printing opera- 
tion, another file name to the punching operation, and still agpther file 
name to the tape or disc operation. 
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a Rules 












































ea 
(1) The file name should correspond exactly to that in the File Description 
Specification. 
(2) The file name must be left-justified. 
(3) If several lines of the same file are specified in sequence, it is not neces- 
sary to repeat the file name on each line. The file name is entered on the 
first specification line only. 
a Example 
Figure 5-3 illustrates several file name entries. 
REPORT PROGRAM GENERATOR 
OUTPUT FORMAT SPECIFICATIONS 
PROGRAM decid __ PROGRAMMER a ee ees DATE sis PAGE OF PAGES 
FOr4 TYPE STACKER ZERO BLANK ‘DATA 
SELECT /PRINT OPTION SUPPRESS FORMAT 
CONSTANT OR EDIT WORD STERLING ROGRA 
SIGN IDENTIFICATION 
POSITION 
ENTREE Se) ae cee Oe 
PLUNHCR.D, re ee ae GER Or Se a Pe SS LAM SS De ASO SE ek Fest ee Me Pe i uk OR 
ars jas Wa oa seal CER RO GoM food fad ad) Was ee: Se Gee i We Bee SO 
FRNTRP T | Maa Ses GN eal eras een sa Re WR Ms TO) OS YM: LAD WF 2 
as es es 
¢ Eat De See SN GS Secs GS SGD Ga MY OO Sree: ws (Ore OU Oe A Gas? IT 
Figure 5~3. Examples of File Name Entries ae 


5.2.2. Type (Column 15) 


a Entry 
Required. 
w Purpose 


Identifies the type of entry being specified, that is, heading, detail, or total 
records. 


m Codes 


H — Heading. These records usually contain heading information for printed 
output. This information is usually constant, although it may be from an 
input source as well, including the current input record. 


D — Detail. Generally the data in the detail records comes from the input record, 
or it is calculated within the program at detail time. 


T — Total. Before detail input fields are operated on, it is preceded by a test 
for a control break. If there is a control break, total time cétcutations are 
performed, total lines are printed, and summary cards are punched. An input 
record which forces a control break is not reflected in the totals that result 
from the control change. 
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a Rules 


(1) The following sequence is required for entries: 
— heading entries 
— detail entries 
— total entries 


(2) The same file name must be assigned to all type entries that refer to that 
file. Thus, heading, detail, and total type entries would be used for a specific 
file name that references the printer. All file name entries must be identical 
for each output unit, since the File Description form relates a file name 
directly to a printer, punch, tape, or disc. 


w Example 


Figure 5—4 illustrates the use of the record type column. 
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Figure 5-4. Example of Type H/D/T Entries 

5.2.3. Stacker Select (Column 16) 

a Entry 
Optional. 

a Purpose 
The stacker select specification permits cards on the punch to be selected into 
the select stacker. ¥ 

a Codes 

— Blank or 1 — Cards to normal stacker. 


2 — Cards to select stacker, 
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2 Rules 
(1) The stacker select is used only for output files or combined files. The stacker 


(2) 


selection of input files is specified in the Input Format Specifications form. 


For compatibility with other RPG compilers, N is permitted in Column 16 and 
is treated as a blank. 


a Example 


Figure 5-5 illustrates entries for this option. 
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Figure 5-5. Example of Entries for Stacker Select Option 


5.2.4. Space (Columns 17-18) 


aw Entry 


Conditional. 


« Purpose 


Controls the spacing of printed reports. 


a Codes 


Space Before (Column 17): 


0 


1 
2 
3 


— No space 

— Single space 
— Double space 
— Triple space 


Space After (Column 18): 


0 


1 
2 
3 


~— No space 

— Single space 
Double space 
Triple space 
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w Rules 


ad (1) If Column 17 is left blank, no spacing before printing is provided, 
(2) A blank in Column 18 provides single spacing after printing a line. 
w Example 
Figure 5-6 presents samples of valid spacing entries. 
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Figure 5--6. Example of Space and Skip Entries 


5.2.5. Adding Records to an Indexed Sequential File (Columns 16-18) 


a Entry 


Conditional; used if the output record is to be added to an indexed sequential 
file. 


s Purpose 
Indicates a record is to added to an output file. 
m Codes 
ADD — Output record is to be added to an indexed sequential file. 


Blank — Output record is used to update, load, or extend an indexed sequential file. 


5.2.6. Skip (Columns 19-22) 


e Entry 


Conditional. 
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m Purpose 


Provides for output formatting and directly relates to the 12 codes (usually 
referred to as channels), which may be punched in the printer carriage control 
tape. When a specified skip is executed, the printer form advances until the 
channel indicatedis detected in the paper loop. 


a Codes 
Validcodes are shown in Table 5-1. 


An entry in Columns 19-20 causes the form to advance to the specified channel 
before printing occurs. 


An entry in Columns 21-22 causes the form to advance to the specified channel 
after printing occurs. 


a Rules 
(1) Spacing and skipping is performed in the following order: 


Skip before 
Space before 
Skip after 
Space after 


(2) In an OR relationship, if space and skip specifications are entered in the 
first line, they need not be entered in the subsequent lines, provided the etsy 
specifications in the first line are applicable for all subsequent lines. 


(3) The channel codes that may be used are listed in Table 5-1 and depend on 
the mode of compilation chosen in the RPG control card (see Appendix E). 


The compiler treats UNIVAC 9200/9300 channel numbers and IBM 360/20 
channel numbers internally as the corresponding UNIVAC 9400 channel 
number shown. The printer loop for the execution of the compiled object 
program must be prepared in accordance with this table. 
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UNIVAC IBM 360 
Overflow 1 
Channel 
Home Paper 14 i 
Channe! 15 » 
Other 
Channels 


12 
1 
15 
4-6 
7 
| ns | 
a SI 






Table 5—1. Valid Channel Codes 


(4) Channels 8 and 9 of IBM 360/20 programs are both translated as Channel 8. 
Programs that make use of both channels must be modified. 


(5) Channel 15 may be specified in any mode, and when punched in the printer carriage 
control tape causes printer spacing at the rate of 8 lines per inch instead of 6 lines 
per inch. 


w Examples 
Figure 5-6 presents samples of skip entries. 


Output Indicators (Columns 23-31) 


a Entry 


Required; at least one indicator must be designated for each file identification 
and control entry. 


w Purpose 


Determines when a specific output operation is to be performed. The kinds of 
indicators entered as output indicators and the significance of the output pro- 
duced as a consequence are listed below. 


(1) A record indicator (of a specific input record type) specifies output to be 
produced only when this record type is being processed in an operation 
cycle. The operation is not performed during operation cycles in which 
other input record types identified by other record indicators are being pro- 
cessed. Record indicators are turned on in the input section to identify a 
specific input record. # 


(2) A field indicator (turned on because a specific input field has a specific 
value) designates output to be produced only when the input field has this 
specified value. 
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(7) 
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A resulting indicator (turned on because a Specific calculation produces a 
result field with a specific value) designates output to be produced only 
when the result field has this specified value. 


A control level indicator (turned on because a control break has occurred) 
specifies output to be produced only at this control break. Control level 
indicators are LO, L1 through L9, and LR. 


A halt indicator (usually turned on because an error is detected during an 
input or calculation operation) is generally used in conjunction with an ‘‘N’’ 
prefix to Suppress the production of output. 


The first page, 1P, indicator (turned on when the RPG object program is 
initiated and permanently turned off at the end of detail time of the first 
processing cycle of the object program) specifies output to be produced 
during the first processing cycle of the program. The 1P indicator is gen- 
erally usedto produce headings on the first page to be printed by the 
printer. 


The MR indicator causes the output operation to be performed only if there 
is a matching record in a secondary input file. 


The overflow indicators, OA, OB, OC, OD, OE, OF, OG and OV, specify 
output to be produced only when the end of the page (form overflow) has 
occurred. The overflow indicators are generally used to produce headings 
on the report. (Normally, one indicator is used to control output for each 
file.) An overflow punch in the printer carriage control tape signals form 
overflow after one or two additional printed lines. When form overflow is 
detected, the fact is noted, and at the end of this output time (total or 
detail), the overflow indicator is turned on. If this occurred during detail 
time, the overflow indicator remains on for one complete cycle and is 
turned off following the next detail time. If it occurred during total time, 
the overflow indicator is on only for the detail time which follows, and it is 
then reset. If the programmer has not specified any output specification 
lines conditioned by the overflow indicators, automatic skipping to home 
paper position is provided whenever the overflow condition is detected. 


Note that in 9400 mode and IBM 360 Model 20 mode programs an overflow line will 
never be output during the normal header-detail or total output times in the processing 
cycle, even if all conditions for output are satisfied. An overflow line can only be 
output during overflow output time. An overflow line is defined as one which has an 
overflow indicator specified on the first source specification line used to describe the 
line. In other words, an overflow indicator on an AND line or a field description line 
will not cause the output line to be considered an overflow line. 


Form overflow is detected one or two lines after the specified overflow line 

is reached. The number of lines depends on the entries in Format (column 19) 
and File Organization Type (column 32) of the File Description Form. If an F 
is entered in column 19 and a blank in column 32, form ovelow is detected after 
one additional line; otherwise, form overflow is detected after two additional 
lines. (For the purposes of this rule, each line is defined as a separate printer 
operation. Note that each ‘‘line’’ requested in the Output-Format Specifications 
may generate as many as four separate print operations. A printed line with or 
without a Space After or Skip After request generates a single print operation. 
Additional space and skip requests for the same printed line generate one 
additional print operation each.) 


10 
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If a UNIVAC 9200/9300 or an IBM 360 Model 20 program is being compiled 


‘which includes a skip to the overflow channel, it may have to be revised 


to operate properly on the UNIVAC 9400. 


An output specification line may contain a combination of the above in- 
dicators. If the control operation is to be basedon an indicator not being 
on, the indicator is preceded by the letter N. 


a Codes 


OA, OB, OC, OD, OE, OF, OG, OV — Overflow indicators 


1P — First page 


LO ~ Level zero indicator 


L1-L9 — Control level indicators 


LR — Last record 


00-99 — Record indicators, field indicators, resulting indicators 


MR — Matching record indicator 


HO-H9 — Halt indicators 


a Rules 


(1) 


(2) 


(3) 


A maximum of three indicators may be entered on a line. If no output indica- 
tors are specified for a detail line, the line is put out every time heading 
and detail lines are processed. When more than one indicator has been 
entered on an output specification line, then all such indicators must have 
been previously turned on before the output specification line is executed, 
This is referred to as an AND relationship. 


If more than three indicators in an AND relationship are required, then the 
word AND is written in Columns 14-16 of the specification line, and the 
additional indicators are entered in the output indicator area of this line. 
Columns 17-22 must be blank. Each AND line, except the last, must have 
three entries for indicators, 


An output specification line may be executed based on an OR relationship. 
In this case, OR is written in Columns 14 and 15 of the following specifica- 
tion line with other indicators entered on the same line. An OR relationship 
is one in which either the output indicators of one specification line or the 
other must have been previously turned on for that specification line to be 
executed. When an OR line is specified on a print file, the printer control 
functions (Columns 17-22) may all be left blank, in which case those of 

the preceding line are implemented. They may, however, differ from the pre- 
ceding line, if required. This implementation does not occur if stacker selec- 
tion is requested, because a blank is a valid stacker select code. 
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SECTION: 


(4) Any number of additional specification lines may be written for AND or OR 
conditions. Each additional line must begin in Column 14 with the word AND SS 
or OR. 


(5) An N in Columns 23, 26, or 29 signifies an off condition for the indicator, 
A blank signifies an on condition. 


m Example 


Figure 5-7 presents examples of output indicator entries. 


REPORT PROGRAM GENERATOR 
OUTPUT FORMAT SPECIFICATIONS 





PROGRAM PROGRAMMER 
FORM TYPE STACKER 
TYPE H/0/T SELECT /PRINT OPTION 





OUTPUT INDICATORS 


1. Printing occurs when there is an overflow condition or when 
the IP (first page) indicator is on. 











2. Punching occurs only when indicater 10 is on and indicators 


21, 22 and 23 are off, 





LRN, T RPT, 3. Printing occurs when indicator 10 is on. 











4. Punching occurs only when the level —1(L1) indicator is on. 








PRINT, RP T 5. Printing occurs only when the level—1(L1) indicator is on. 








6. Printing occurs only when the Last Record (LR) indicator is on. 





7. Printing occurs only when the Matching Record (MR) indicator 
and indicator 16 are on. 














Figure 5—7. Examples of Output Indicator Entries 
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Many times several output lines are written with identical indicators 
specified in Columns 23-31; that is, several output lines are to be 
performed under the same conditions. To avoid rewriting the indicators, 
an asterisk (*) may be entered in Column 25. A line with an asterisk in 
Column 25 will be performed if the conditions were met for the preced- 
ing line of the same (H/D/T) type. Once an asterisk condition has been 
set up for a series of lines, more stringent conditions can be put on any 
remaining ‘subset of those lines. The instances in which this asterisk 
convention cannot be used are as follows: 


(1) The first line of agroup of field description specifications. 

(2) A field description specifying a page numbering field (PAGE,... 
PAGE7; see 5.3.2(6)) or a field description specification immediate- 
ly following such a specification. 


(3) A total time line if the preceding line is a detail line. 


(4) An overflow line if the preceding line is a nonoverflow line, and 
vice versa. 


(5) An AND specification. 


(6) When there are more than 150 lines using the same set of conditions in continuous 
processing, the asterisk cannot be used on line 151. Line 151 must redefine the 
indicators. Line 152 may again use the asterisk convention. 


The asterisk convention also applies to lines in an OR relationship. 


Figure 5—8 illustrates the asterisk convention. 
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Figure 5-8 Example of Asterisk Convention 
5.3, FIELD DESCRIPTION 


The field description entries include specifications about the control of the individual 
fields of a record and the output format of individual fields within the output file. 

The field description entries are written starting on the line following the file identi- 
fication line. Each individual field description is entered on a separate line and 
Columns 7-22 must always be blank. 


NOTE: In general, the sign of a numeric field is located in the rightmost position of 
that field. A positive sign is indicated by a 12 overpunch; a negative value 
is designated by an 11 overpunch. If a signed field is printed or punched, 
then the rightmost position contains one of the letters A-R or a blank. Amount 
fields may be zero suppressed or edited before printing to remove the alge 
braic sign from the unit position. An algebraic sign also may be removed in 
UNIVAC 9200/9300 mode programs by executing an MLLZO or MHL ZO op- 
eration, specifying an alphanumeric literal of zero without sign in factor 2. 


5.3.1. Output Indicators (Columns 23-31) 


a Entry 


Optional. 
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m Purpose 


ae Specifies the point during output processing at which a field is written on tape, 
disc, printed, or punched. The same types of indicators previously specified for 
file identification may also be specified in defining individual fields. 
5.3.2. Field Name (Columns 32-37) 
a Entry 
Required; unless the output is to be constant. 
m Purpose 
Identifies the specific field of the record that is to be written on tape, disc, or 
is to be printed, or punched. 
m Rules 
(1) Only names previously defined in the Input Format Specifications or Calcu- 
lation Specifications forms may be used. 
(2) The fields may be listed in any desired sequence, since the entry in Columns 
40-43 (end position in output record) specifies the exact print or punch 
positions. 
seins (3) The field name is blank when a constant is specified in Columns 45-70. 


(4) In blocked records, when all records are alike, only one record need be de- 
scribed. 


(5) The date in the Supervisor may be accessed by the name D?TE, which is 
automatically defined by the RPG as a six-position alphanumeric field. 


(6) The names PAGE, PAGE1...PAGE7 are restricted. They are used by the 
RPG to indicate output page numbering. 


mw Example 


Figure 5—9 illustrates field names. 
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5.3.2.1. 





Figure 5~9. Example of Asterisk Convention 


PAGE Field Name 





Page numbering may be accomplished automatically for a report file by indicating, 


on the print specification line, the word PAGE in the 


field name area, and the 


rightmost print position of the desired printing area in the end position of the 


output record. 


— PAGE is a restricted name. It may be used as a field name only to indicate 


page numbering. 


~ Pages are numbered from 1-9999. The RPG object program allocates a four- 


position decimal working storage area to the PAGE 


field. Each time the value 


of the PAGE field is to be an output, the object program increases its value by 


one before the output operation. 
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— Page numbering starts automatically with page 1. If it is desired to begin page 
numbering with a page other than 1, the programmer may define a header card 
on the Input Format Specifications form. This header card contains the desired 


starting page number, less one, because the page number is always increased by 
1 before printing occurs. In such a situation the record indicator of the header 
card should be used in lieu of the 1P indicator. 


— Any output indicators specified in a PAGE line are checked before printing. If 
all indicators are on, the page counter is reset to 1, instead of being incremented 


by 1. 


~ The PAGE field should be zero suppressed when it is printed so the sign of 
the field is eliminated. 


— If more than one report file is being produced, any of seven additional page 
number fields can be used (PAGE1, PAGE2, PAGE3, PAGE4, PAGES, PAGE®6, 
PAGE7). The additional fields are initialized, incremented, and reset as de- 


scribed for PAGE. 


5.3.3. Zero Suppress (Column 38) 


a Entry 
Conditional; may not be used if an edit word is specified in Columns 45-70. 
m Purpose 


Eliminates zeros that appear to the left of the first significant digit of a field 
and removes zone bits from the units position of the field. 


m Code 
Z — Specifies zero suppression. 
m Rules 
(1) All amount fields should be zero suppressed or edited before printing to re- 
move the algebraic sign from the units positions. If the zone bits (algebraic 
sign) are not removed, the units position prints as an alphabetic letter or 
blank. These same fields, when specified for punching, generally should 
not specify zero suppression so that the sign position and leading zeros 


are punched into the card. 


(2) The zero suppress column must be blank if an edit word is specified for a 
field. 


m Example 


See Figure 5-9. 


UP-7707 





5.3.4. 


5.3.5, 
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Blank After (Column 39) 


mw Entry 
Operational. 
mw Purpose 


Resets alphabetic output fields to blanks or numeric fields to zeros after an 
output operation has been completed. 

This specification also has an additional feature. If the output field being reset 
by the blank after specification is also being tested for zero or blank on the Input 
or Calculation Specifications, the corresponding indicator is turned on after the 
output field is reset. However, the associated plus or minus indicators are not 
turned off. If a given field is specified for output at more than one position in the 
same record, the blank after entry is made only on the last specification where the 
field is used. Resetting of calculation and input indicators is never done in 9200/ 
9300 mode programs. 


m Code 
B — Specifies that the field is to be reset to blanks or zeros. 
NOTE: lf the blank after specification is used on a constant line, then the 
constant will be blanked andlost for use in subsequent operations. The 
RPG stores constants only upon program initialization; it also eliminates 
duplicates. 
uw Example 


See Figure 5-9, 


End Position in Output Record (Columns 40-43) 


we Entry 
Required. 
m Purpose 


Defines the print position, card column, or record position of the rightmost 
character of the output field. 


mw Codes 
0001-9999 
w Rules 


(1) Entries are right-justified; leading zeros may be omitted. 
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(2) In all indexed sequential files, the key is considered part of the output 
record. Data must always be provided for the key field locations in the 
record. (For update records, the output key must be the same as the input 
key.) In unblocked indexed sequential files, the record key always starts 
in location 1 and the record data starts in 1 + KL, where KL is the Key 
Length specified in the File Description (Columns 29-30). 


a Example 


See Figure 5-9. 


Data Format (Column 44) 


Entry 

Optional; used only for packed numeric format on tape, disc, or punched output. 

Purpose 

Specifies that a field is to be punched or written in packed format. 

Codes 

P — Packed format. (Required for numeric key fields of an indexed sequential 
file that will later be accessed — by another RPG program — as a chained 
file.) 

Blank — Unpacked format. 


Rules 


(1) Individual fields may be specified as either packed or unpacked format, as 
required. 


(2) If an edit control word or sterling entry is specified for the field, this 
column must be blank. 


Constant or Edit Word (Columns 45-70) 


Entry 
Optional. 
Purpose 


Provides for the creation of constants that may be printed or punched or permits 
editing of numeric fields on printed reports. : 


Rule 


Constants and edit words must be left-justified. 
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5.3.7.1. Constant 


m Purpose ad 


Permits the programmer to specify an actual value that is to appear in the out- 
put. This provides a way of placing values in the RPG object program that do 
not change from one running of the object program to the next. This mechanism 
is typically used to set up headings. 


» Rules 
(1) The field name must be blank. 


(2) An alphanumeric constant may be a maximum of 24 characters in length 
and is always enclosed in apostrophes. Any character, including space 
and apostrophe, may be used to form a constant. If a single apostrophe is 
required within a constant, it must be specified as two consecutive single 
apostrophes, 


(3) A hexadecimal constant consists of a string of a maximum of 22 hexadeci- 
mal digits preceded by X’ and followed by an apostrophe sign (’). The 
hexadecimal digits and their values are as follows: 


0 — 0000 8 — 1000 
1 — 0001 9 — 1001 
2 — 0010 A— 1010 
3 ~ 0011 B- 1011 
4 — 0100 Cc ~ 1100 a 
5 — 0101 D— 1101 
6 — 0110 E~ 1110 
7-0111 F-11011 


Each hexadecimal digit represents a half byte of information. 


Some examples of hexadecimal constants and their values are: 





Hexadecimal Binary 

Representation Value 
X’D’ 00001101 
X’7101’ 00000001 00000001 
X’3FFF’ 00011111 11111111 


5.3.7.2, Edit Word 


m Purpose 


Permits the programmer to punctuate a print field with commas, a decimal point, 
and a preceding dollar sign; to suppress leading zeros; and to express signed 
condition of the field. The edit word consists of two parts: body and status. 
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The body is that portion which begins with the leftmost character of the 
edit word following the leading apostrophe and continues to the right to 
include the character controlling the transfer of the units position of the 
data field. 


The status of an edit word is the portion continuing to the right from the 
body including all characters preceding the closing apostrophe. The 

credit symbol (CR) or minus sign (—), if present, may appear anywhere 
within the status. The letters CR or the minus symbol in the status portion 
of the edit word are undisturbed if the sign in the data field is minus. If 
the sign is plus, they are blanked out. 


a Rules 


(1) 


(2) 


(3) 


(4) 


(S) 


(6) 


(7) 


(8) 


(9) 


(10) 


An edit word must be enclosed in apostrophes. 


The first zero or asterisk encountered by RPG, scanning from left to right, 
is the significance start character. The significance start character is 
also a digit select character. If the significance start character is a zero, 
the fill characteris a space; if the significance start characteris an 
asterisk, so is the fill character. 


A blank in the edit word is replaced with the digit from the corresponding 
position of the data field specified in field name (digit select). A blank 
position is referred to as a digit position. 


A zero is usedto stop zero suppression. It is put in the rightmost position 
of the edit word where zero suppression is to take place and is replaced 


with the character from the corresponding position of the data field, unless 
that character is zero. 


An asterisk in the body of a control word is used for asterisk protection 
and zero Suppression. It is put in the rightmost position of the edit word 
where zero suppression is to take place. It is replaced with the character 
from the corresponding position of the data field unless that character is 
a zero and there is no significant digit to its left. Each zero that is sup- 
pressed is replaced by an asterisk. 


Asterisks to the right of the CR or minus symbol are undisturbed. They 
are normally used to indicate a specific class of totals. 


The body of the edit word may not contain a minus sign. 
Decimals and commas are printed in the same position in which they were 
written unless they are to the left of the significant characters in which 


case they are replaced by an asterisk or blanked out. 


An edit word can contain a maximum of 15 digit positions (except for a 
sterling field for which the maximum is 16 digits). 


An ampersand causes a space in the edited field. There is no way to obtain 
an ampersand in the edited field. 
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(11) A dollar sign to the left of the zero suppression code causes the decllar 
sign to be inserted immediately preceding the first significant digit. This 


is called the floating dollar sign. If the dollar sign is to be printed when el 
all digits are significant, the edit word must start with an ampersand to 
allow a space in which it can be printed. 
(12) If a dollar sign is entered immediately after the leading apostrophe, it 
is printed in this location and is called a fixed dollar sign. For example: 
in the edit word ‘$0bb’, the dollar sign is considered to be fixed. The fixed 
dollar sign feature is available for the UNIVAC 9400 and IBM 360/20 mode 
of compilation. In the UNIVAC 9200/9300 mode of compilation, the dollar 
sign is always floated. 
ma Example 
Figure 5-10 illustrates the use of edit words and Figure 5-11 presents examples 
of constants and edit words in various situations. 
5.3.8. Sterling Sign Position 
s Entry 
Conditional; used only when sterling currency is being processed. 
Purpose 
The user should read Appendix D before using this specification. 
ee 


Codes 


S — Entered in Column 74 for output with the sign in standard position (see 
Appendix D). 


0001-9999 — Entered right-justified in Columns 71-74 to indicate the location of 
a sign in nonstandard position. 


Rules 


(1) If a field is defined as sterling on input but is not defined as sterling on 
output specifications, then the output is in pence format. 


(2) Unedited printer representation allocates one print position to each pound 
position, two print positions for shillings, two print positions for integral 
pence, and one print position for each fractional pence position of the 
shillings and pence fields. The sign is associated with the least significant 
pense position (integral or fractional). 


(3) The rules governing the use of edit control words for sterling notation are 
identical to those for decimal fields. 
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Figure 5-10, Examples of Edit Words 
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a 
6.1. GENERAL DESCRIPTION 
The File Extension form (Figure 6-1) provides information to RPG about record ad- 
dress, chaining and tag files, and tables used in the object program. For additional 
information on tables, refer to Section 8. 
REPORT PROGRAM GENERATOR 
FILE EXTENSION SPECIFICATIONS 
a ae eae PROGRAMMER ___. i gee eae ve a= DATE! | PAGE OF... PAGES. 
FORM CHAINING 
TYPE FIELD NUMBER 
& PROGRAM 
: . COMMENTS IDENTIFICATION 
all te 
Figure 6—1. File Extension Specifications Form 
6.2. FORM ENTRIES 
The entries for the File Extension Specifications form and their relation to the RPG 
program are explained in the following paragraphs. 
6.2.1. Record Sequence of Chaining Files (Columns 7-8) 
w Entry 
Required for chaining files; in the UNIVAC 9200/9300 mode of compilation, this 
field should be blank. 
m Purpose 
Specifies the sequence of the input files. This entry is the same as that made 
for chaining files on the Input Specifications form Columns 15-16. 
mw Codes 
axe 01-99 — Consecutive sequence of records. Two alphabetic characters — indicates 


records do not have to be in sequence. 
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Chaining Field Number (Columns 9-10) 


gs Entry 4 
Conditional; for chaining files only. 

m Purpose 
Defines a meaningful chaining field. 

a Codes 
C1-C9 — Identifies the number of the chaining fields. 

= Rules 


(1) The code entered must be the same code entered in Columns 61-62 of the 
Input Specifications form. 


(2) This field is blank if the file is not a chaining file. 


From File Name (Columns 11-18) 

m Entry 
Required. 

m Purpose 
Defines the relationship between files for the RPG program. This field is used 
in conjunction with the to file name entry. See Table 6-1 for a summary of this 
relationship. 


m Codes 


Any file name specified and defined in the File Description Specifications form. 
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m Rules 


(1) The file name must be left-justified. 


(2) For table files: 

— A file may contain one or more tables. If read at object time, it is ex- 
pected to conform to the file description referenced by the specified file 
name. If produced at object time, it is produced in conformance with the 
file description. 

— A table produced at object time may be subsequently processed as a file. 
In such a case, record length for the file is equal to the length of table 
entry (Columns 40-42) of the File Extension form plus the length of table 
entry (Columns 52-54), and block length is equal to record length multi- 
plied by the number of table entries per record (Columns 33-35) of the 
File Extension form. 

— If a table file is to be read from an input unit, the file name of the input 
unit is written in the from file name entry. 

— If a table file is to be written on an output unit, the file name of the output 
unit is written in the to file name entry. 


FROM FILE NAME 
FILE TYPE (Columns 11-18) 


Record Address 
(RA) Files 


























TO FILE NAME 
(Columns 19-26) 






The name of the record ad- 
dress (RA) file is entered 
here. 


The name of the file containing 
the data records is entered here. 








The name of the chained file de- 

fined in Columns 7-14 of the File 
Description Specifications form is 
entered here. This is the file from 
which the data record is obtained. 


Chaining Files The name of the chaining 
file defined in Columns 7- 
14 on the File Descrip- 
tion Specifications form 
is entered here. This file 
has the data record con- 
taining the chaining 
field. 





Tag Files The name of the tag file 


is entered here. 


The name of the file being acces- 
sed on the basis of the tag file is 
entered here. 





Table Files If a table is being de- 
fined (Columns 27-57), 

the name of the file con- 
taining the table data is 


entered here. 


If the table is to be printed, 
punched, or written after updating, 
the name of the table output file 
is entered here. 













Table 6—1. Summary of From File Name/To File Name 


6.2.4. To File Name (Columns 19-26) 


The entries for this field are the same as those described in from file name (see 
Table 6-1). 
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Table Name (Columns 27-32) 


Entry 
Required for table files. 
Purpose 


A table file may include a table of arguments and a table of functions. This 
specification contains the name of either table. 


Code 

TABnnn - nnn is any combination of alphanumeric characters. 
Rules 

(1) The entry must be left-justified. 


(2) Embedded blanks are not permitted. 


Number of Table Entries Per Record (Columns 33-35) 


Entry 
Required for tables. 
Purpose 


Specifies the maximum number of table entries (arguments or functions) con- 
tained in each input record. 


Codes 
1-999 
Rules 


(1) The entry must be right-justified; leading zeros may be omitted. 


6.2.7. Number of Table Entries Per Table (Columns 36-39) 


Entry 
Required for table files. 
Purpose 


Contains the total number of entries (arguments or functions) for the specified 
table. 


PAGE: 
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™ Codes 
ts 1-9999 
mw Rules 


(1) The number must be right-justified; leading zeros may be omitted. 


6.2.8. Length of Table Entry (Columns 40-42) 


m Entry 

Required for table files. 
a Purpose 

Specifies the length of each table entry. 
a Codes 


1-256 for alphanumeric entries. 
1- 15 for numeric entries. 


m Rule 
(1) The number must be right-justified; leading zeros may be omitted. 


6.2.9. Packed (Column 43) 


a Entry 
Required if the data in the table is in packed decimal format. 
m Codes 


P — packed format. 
Blank — unpacked format or alphanumeric data. 


6.2.10. Numeric (Column 44) 


m Entry 

Conditional. 
m Purpose 

Indicates the number of decimal positions for numeric table entries. 
m Codes 


0 — No decimal positions. 
1-9 — Number of decimal positions. 
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m Rules 


(1) For numeric fields, a decimal position must be indicated. 
(2) For alphanumerics, this field must be blank. 


Sequence (Column 45) 
w@ Entry 
Conditional. 
m Purpose 
Indicates the sequence of the data in the corresponding table. 
m Codes 
A — Ascending order. 
D — Descending order. 


Blank — Not in sequence. 


Table Name (Columns 46-51) 


@ Entry 
Optional; used for alternating formats only. 
m Purpose 


When the alternating argument and function tables are used, enter the second 
name here. , 


m Codes 
TABnnn - nnn is any combination of alphanumeric characters. 
® Rules 
(1) The entry must be left-justified. 
(2) Embedded blanks are not permitted. 
Length of Table Entry (Columns 52-54) 
@ Entry 
Optional; used for alternating formats. 
m Purpose 


Specifies the length of each table entry. 
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@ Codes 


1-256 for alphanumeric entries. 
1- 15 for numeric entries. 


m Rules 
(1) The number must be right-justified; leading zeros may be omitted. 


6.2.14. Packed (Column 55) 


m Entry 


Required if the data in the alternating table file is in packed decimal format. 


@ Codes 


P - packed format. 
Blank - unpacked format or alphanumeric data. 


6.2.15. Numeric (Column 56) 


w Entry 
Conditional; used for alternating formats. 
m Purpose 
— Indicates the number of decimal positions for numeric table entries. 
m Codes 


0 — No decimal positions. 
1-9 — Number of decimal positions. 


mw Rules 
(1) For numeric fields, a decimal position must be indicated. 
(2) For alphanumerics, this field must be left blank. 


6.2.16. Sequence (Column 57) 


@ Entry 
Conditional; used for alternating formats. 
m Purpose 


Indicates the sequence of the data in the corresponding table. 
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= Codes 


A — Ascending order. 
D — Descending order. 
Blank — Not in sequence. 


6.2.17. Comments (Columns 58-74) 


Can be used for comments or left blank. 
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7. LINE COUNTER 
SPECIFICATIONS FORM 


GENERAL DESCRIPTION 


The Line Counter Specifications form (Figure 7-1) allows a report which is to be 
printed at a later time to be stored on an intermediate tape or disc file. It also pro- 
vides an internal control when an online printer is used. 


A carriage control character is added as the first byte of each record that is stored 
on an intermediate device. Space before and skip before controls are put out as an 
independent carriage control character in an individual record that does not print. 
Space after and skip after controls are put out as modifier bits in conjunction with 

the write command for the line. Thus, a line that has only space before or skip before 
contro! produces two records on the intermediate device, and a line that has skip afte: 
or Space after control produces only one record. To retrieve these records for printing 
an auxiliary program written in RPG or another programming language must be used (se:: 
Appendix E). The carriage control characters used are described in UNIVAC 9400 
System Data Management System Programmers Reference, UP-7629 (current version). 
The record format is always blocked variable (VARBLK),. 


REPORT PROGRAM GENERATOR 
LINE COUNTER SPECIFICATIONS 


PROGRAMMER DATE NN PAGE —_ OF __ PAGES 
S 





PROGRAM 


IDENT. 








Figure 7—1. Line Counter Specifications Form 
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7.2. FORM ENTRIES 


The following descriptions explain the entries on the Line Counter Specifications 
form and demonstrate their functions in relation to the RPG program. 


7.2.1. File Name (Columns 7-14) 


@ Entry 


Required; in the UNIVAC 9200/9300 mode of compilation, file name may be 
specified in Columns 50-57 instead of Columns 7-14. 


m= Purpose 
Identifies the report file from which lines are printed at a later time. 
m Rules 
(1) The entry should be identical to the file name in the File Description form. 
A maximum of eight characters may be used but the first seven will identify 
the file. 
(2) The file name must be left-justified. 
(3) On the File Description Specifications form, Column 19 must contain a V 
and Column 39 must contain an L. The L indicates that a Line Counter 
Specifications form is required for the output file. 


= Example 


Figure 7-2a is a completed Line Counter Specifications form and Figure 
7-2b is the printer spacing chart from which it is derived. 


7.2.2. Line Number (Columns 15-17) 


mw Entry 
Required. 
a Purpose 


Identifies the line number on which a channel punch is entered when deferred 
printing takes place. 


@ Code 
001-999 
® Rules 
(1) The entry must be right-justified. 


(2) Leading zeros may be omitted. 
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Figure 7-2a. Example of Completed Line Counter Specifications Form 
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Figure 7—2b. Printer Spacing Chart 
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7.2.3. Channel Number (Columns 18-19) 


@ Entry 
Required. 
@ Purpose 


Identifies the channel number associated with the line number given in the 
preceding three columns of the Line Counter Specifications form. 


® Codes 


04-15 — UNIVAC 9400 channel numbers 

01-07, 15 — UNIVAC 9200/9300 mode programs 
01-12, 15 — IBM 360 Model 20 mode programs 
(See 5.2.6, Rule 3.) 


@ Rules 
(1) The entry must be right-justified. 
(2) Leading zeros may be omitted. 


(3) When the Line Counter Specifications form is used, at least one of the 
following entries are required: 


~ In UNIVAC 9400 mode of compilation, entries for channel 9 and 
channel 14 (or 15). 

- In UNIVAC 9200/9300 mode of compilation, entries for channel 1 
and channel 7 (or 15). 

— In IBM 360/20 mode of compilation, entries for channel 12 and 
channel 1 (or 15). 


(4) Form overflow is detected two lines after the specified overflow line is 
reached. (For the purposes of this rule, each line is defined as a separate 
output record directed to the printer, tape, or disc file. Note that each 
‘‘line’’ requested in the Output-Format Specifications may generate as 
many as four separate output records. A line with or without a Space After 
or Skip After request generates a single output record. Additional space 
and skip requests for the same line generate one additional record each.) 


If a UNIVAC 9200/9300 or IBM 360 Mode! 20 program is being compiled 
which includes a skip to the overflow channel, the program may have to be 
revised to operate properly on the UNIVAC 9400. 


NOTE: The five columns (line number and channel number) are repeated across 
the Line Counter Specifications form allowing for a total of 12 carriage 
loop punches. (In the UNIVAC 9200/9300 mode, these entries cannot ex- 
tend beyond Column 49, allowing for a total of seven carriage loop 
punches.) 
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8B. TABLE HANDLING 


GENERAL DESCRIPTION 


The File Extension Specifications form is used to describe data tables (see Figure 


6-1). 


A table is a collection of data stored in a form suitable for ready reference, 
usually in sequential machine locations. A table may consist of two parts: 


m Argument —in looking up a quantity in a table, the data that identifies the location 
of the desired value (or function) is called the argument. The argument may also be 
defined as the variable which, when a certain value is added to its location, de- 
termines the location for the value of the function. The argument is more commonly 
known as the search value used to locate the desired value necessary for calcu- 
lation. 


m Function— a value corresponding to an argument, stated or implied. It is obtained 
from a table of values in memory. 


RPG enables the programmer to use tables in the object program. They are loaded into 
storage by the RPG object program before any processing. 


Tables used in the LOKUP operation may consist of either arguments or functions. As 
illustrated in Figures 8-la and 8-1b, table input records may consist of the following: 


(1) Arguments (identification) 
(2) Function (desired value) 
(3) Alternating arguments and functions 


alternating input formats 
(4) Alternating functions and arguments 
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B Funct. BLOCK 
124 GAP 


DISC/TAPE TABLE BLOCK ~ ALTERNATING ARGUMENTS & FUNCTIONS 


ARG | Funct. | ARG ARG Funct.| ARG 
1 2 2 4 124 124 


DISC/TAPE TABLE BLOCK — ALTERNATING FUNCTIONS & ARGUMENTS 





Figure 8—1b. Example of Table Input Record Formats—Disc/Tapes 


The rules for preparing a table input file are: 


(1) Each table is assigned a unique name which can have a maximum of six 
characters. The first three characters must be TAB, and the remaining three 
may be either alphanumeric or numeric. 


(2) Each unit of table data is a table entry; that is, each argument is a table entry 
and each function is a table entry. 


(3) All tables may be loaded from the same file in the same order that they are 
specified on the File Extension Specifications form. 


(4) Tables may be in ascending or descending sequence or in no sequence. If the 
tables are not in sequence, only an equal search can be performed. 


(5) The records of a table must be in a sequentially organized file. 


(6) The first table entry must start in position 1 of the input record and each table 
entry must be adjacent to the preceding entry with no blank positions in between. 


(7) Every record of an input table except the last must contain the same number of 
entries. 


(8) All arguments of a table must be the same size, and all functions of a table must 
be the same size. Entries may not overflow from one record to another. 






UP-7707 





8.2. 


8.2.1. 







UNIVAC 9400 
REPORT PROGRAM GENERATOR 


SECTION: 


(9) For alternating formats, each input record must begin with an entry of the same 
type; each record must always begin with an argument or each record must al- 
ways begin with a function. 


(10) When alternating tables are used, the table entries must be together; function 5 
must be in the same record as argument 5. 


(11) Entries may be alphanumeric or numeric. Alphanumeric entries must not exceed 
256 characters and the maximum size of numeric entries is 15 digits. Numeric 
entries may be packed or unpacked. 


(12) Columns 46-57 are used on the File Extension Specifications form only when an 


alternating input format is specified. 


LOKUP PROCEDURE 


The LOKUP operation causes the RPG to search a table contained in storage, to 
indicate a find, and to secure from the table specified data needed in subsequent 
calculations. The LOKUP operation may specify a Single table operation or a two- 
table operation. 


Single Table Operation 
Based on conditions specified in resulting indicators, the RPG LOKUP operation 
searches the table specified in factor 2 for the value specified in factor 1. After 
the entry from the argument table has been found, the corresponding function from 
the function table is located and placed in the special holding area of the function 
table. The resulting indicators may specify the following conditions: 
High 
Low 
Equal 
High or Equal 
Low or Equal 
The following results can be obtained from a single table search. 
(1) High (HI) Indicator Specified 
— If a value is located in the table which is immediately higher than the search 


value (factor 1), this located value is moved to the table’s special holding 
area and the HI indicator is set. 


— If the highest value in the table is lower than the search value, the HI in- 
dicator is reset. 
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(2) Low (LO) Indicator Specified 


— If a value is located in the table which is immediately lower than the search 
value, this located value is moved to the table’s special holding area and 
the LO indicator is set. 


~ If the lowest value in the table is higher than the search value, the LO in- 
dicator is reset. 


(3) Equal (EQ) Indicator Specified 


— If the value in factor 1 is located in the table, the EQ indicator is set (turned 
on) and the value from the table is moved to the table’s special holding area. 


— If the value in factor 1 is not located in the table, the EQ indicator is reset 
(turned off). 


(4) High (HD and Equal (EQ) Indicators Specified 
NOTE: Do not specify the same indicator number for both HI and EQ. 


~— If HI is set, a value immediately higher than the search value is in the 
table’s special holding area. 


— If EQ is set, the equal value from the table is in the table’s special holding 
area. 


—— — If both HI and EQ are reset, the highest value in the table is lower than the 
search value. 


(5) Low (LO) and Equal (EQ) Indicators Specified 
NOTE: Do not specify the same indicator number for both LO and EQ. 


— If LO indicator is set, a value immediately lower than the search value is in 
the table’s special holding area. 


— If EQ indicator is set, the equal value from the table is in the table’s special 
holding area. 


— If both LO and EQ are reset, the table’s lowest value is higher than the 
search value. 


High or low must not be specified unless the table is in either ascending or de- 
scending sequence. 


Subsequent operations may reference the stored value inthe special holding area 
by referencing the table name. Figure 8—2 illustrates the entries necessary for 
Single table LOKUP. 
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Figure 8—2, Single Table LOKUP Format 


8.2.2. Two-Table Operation 


The RPG LOKUP searches the Argument Table specified in factor 2 for the search 
value specified in factor 1 as modified by the condition specified in resulting in- 
dicators. On a find, the corresponding value is secured from the Function Table 
specified in result field. The conditions may be indicated as follows: 
High 
Low 
Equal 
High or Equal 
Low or Equal 
The following results can be obtained from a two-table search: 
(1) High (HI) Indicator Specified 
— If a value is located in the Argument Table which is immediately higher than 
the search value, the corresponding value from the Function Table is maved 


to the Function Table’s special holding area. 


— If the highest value in the Argument Table is lower than the search value, the 
HI indicator is reset. 


(2) Low (LO) Indicator Specified 


— If a value is located in the Argument Table which is immediately lower than 
the search value, the corresponding value from the Function Table is moved 
to the Function Table’s special holding area. 


~ If the lowest value in the Argument Table is higher than the search value, the 
LO indicator is reset. 


(3) Equal (EQ) Indicator Specified 
— If the value in factor 1 1s located in the Argument Table (factor 2), then the 


EQ indicator is set (turned on) and the corresponding value from the Function 
Table (result field) is moved to the Function Table’s special holding area. 
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— If the value in factor 1 is not located in the Argument Table, the EQ indicator 
is reset (turned off). 


(4) High (HI) and Equal (EQ) Indicators Specified 
NOTE: Do not specify the same indicator number for both HI and EQ. 


~ If HI indicator is set, a value from the Function Table will be in the 
Function Table’s special holding area. This value corresponds to a 
value in the Argument Table which is immediately higher than the search 
value. 


— If EQ indicator is set, a value, from the Function Table is in the Function 
Table’s special holding area. This value corresponds to a value in the 
Argument Table which is equal to the search value. 


~— If both HI and EQ are reset, the highest value in the table is lower than 
the search value. 


(5) Low (LO) and Equal (EQ) Indicator Specified 
NOTE: Do not specify the same indicator number for both LO and EQ. 


— If LO indicator is set, a value from the Function Table is in the Function 
Table’s special holding area. This value corresponds to a value in the 
Argument Table which is immediately lower than the search value. 


— If EQ indicator is set, a value from the Function Table is in the Function 
Table’s special holding area. This value corresponds to a value in the 
Argument Table which is equal to the search value. 


- If both LO and EQ are reset, the table’s lowest value in the table is 
higher than the search value. 


High or low must not be specified unless the table is in either ascending or 


descending sequence. 


Subsequent operations may reference the stored value by using the name of the 
Function Table. Also, the high, low, or equal resulting indicators that were spe- 
cified in the LOKUP operation areturned on. These indicators can now be used to 
control calculation and output operations. Figure 8-3 is an example of a two-table 
LOKUP format. 
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8.2.3. Resulting Indicators 


8.2.4. 


The high, low, or equal resulting indicators specified in the LOKUP operation 
determine the type of search to be performed. Therefore, at least one resulting 
indicator must be specified as a prerequisite for this operation. Any available 
indicator number may be used. If an equal indicator (Columns 58-59) is specified, 
the RPG attempts to locate a table entry equal to the search value or argument. 

If a low indicator (Columns 56-57) is specified, it causes the RPG to search for 
that table entry which is nearest to, but smaller than, the search value. A specified 
high indicator (Columns 54-55) causes the RPG to search for a table entry that is 
nearest to, but greater than, the search value. If two indicators are specified, then 
the RPG searches for the table entry which is high or equal, or low or equal to the 
search value. If the search value cannot be found in the Argument Table, then the 
specified resulting indicators are reset (turned off). 


The compare operations used for the LOKUP operation are logical for alphanumeric 
arguments and algebraic for numeric arguments. The search values must be identi- 
cal in format to the table entries against which they are compared. If the search 
value is numeric, then the table entries must be numeric in format. Decimal align- 
ment is not performed if numeric search arguments and table entries have different 
decimal lengths. 


NOTE: The File Extension Specifications form must specify the sequence of the 
Argument Table if the high or low indicators are used. 


General Rules 


The following points should be considered when the table lookup operation is used 
in a program: 


(1) Indicators and contro! level entries (Columns 7-17) are optional. 

(2) The argument or search value is always specified in factor 1 and must be the 
same length as the entries in the Argument Table. 

(3) The search value may be a field name or a literal and may contain either 
numeric or alphanumeric data. 

(4) For single tables, the table name is entered in factor 2, and the result field is 
left blank. 

(5) When two tables are used, the Argument Table is specified in factor 2 (Columns 
33-38) and the Function Table in the result field (Columns 43-48). 

(6) Columns 49-53 must be blank. 

(7) If a table name is used in factor 1 or factor 2 of any operation except LOKUP, 
the data used for this table name is the data that was located or used by the 
last performed LOKUP operation referring to this table. If no LOKUP has yet 
been performed in the program, the first entry in the table is used. 

(8) If a table name is specified as the search value (factor 1) of the LOKUP opera- 
tion, then the data used for factor 1 is the data that was located or used on the 
last performed LOKUP operation referring to this table. If no LOKUP has yet 
been performed in the program, the first entry in the table is used. 

(9) If a table name is specified in the result field of an RLABL statement, the data 
located or used by the last performed LOKUP operation referring to this table 
may be used in subroutines contained in the program. 

(10) Table names may be referred to in a Subroutine through an RLABL statement. 
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Examples 


Figure 8-4 is an example of the following table lookup application. 


The table input records are in the alternating argument and function format. 
TABPNO, the Argument Table, contains the part numbers of 150 critical stock 
items. TABQTY, the Function Table, contains the corresponding quantity of each 
part number contained in the Argument Table. The TABPNO entries are six numeric 
positions in length and are in ascending sequence. Each TABQTY function entry 


is four numeric positions long. 


The cost of inventory is determined by extending the cost of each part number 
(found in the data input record) by its quantity as found in the Function Table. 


The field PARTNO, contained in Columns 1-6 of the data input record, is used as 

au search value. This field contains the stock number of an inventory item which is 
to be costed. The cost field in Columns 7-11 indicates the actual cost of the part 

whose number PARTNO is indicated in the same card. 
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Figure 8-4, Table Lookup Applications Example 
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8.3. EXTENDING TABLES 


The LOKUP operation has the facility to update tables and to add new entries to 
tables. 


8.3.1. Updating Tables 
Figure 8-5 illustrates updating the Argument Table and the Function Table. 
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Figure 8—5. Table Updating Example 


(1) On line 1, the literal ‘‘+10’’ in factor 1 is the search argument. The table 
lookup (LOKUP) operation searches the Argument Table (TABARG) in factor 
2 for an entry equal to the search value (+10). A search for equality is spe- 
cified by indicator 25 entered in Columns 58 and 59 of the resulting indicator 
section of the Calculation Specifications form. 


If the search is successful, indicator 25 is turned on, the Argument Table 
entry location is noted, and the contents of the located argument are moved to 
the Argument Table’s special holding area; also, the Function Table’s corres- 
ponding entry location its noted and the contents of the located function are 
moved to the Function Table’s special holding area. If the search is not suc- 
cessful, indicator 25 is reset. 


(2) On line 2, if indicator 25 is set (on), the new function value (factor 2) ‘°+365’’ 
is moved to the Function Table’s entry and the special holding area; this transfer 
replaces the entry located by the previous LOKUP operation. If indicator 25 is 
reset (off), then line 2 is skipped. 


(3) On line 3, if indicator 25 is set (on - indicated by asterisk in Column 11), the 
new argument value (factor 2) ‘‘+15’’ is moved to the Argument Table’s entry 
and the special holding area; this transfer replaces the entry located by the 
previous LOKUP operation. If indicator 24 is reset (off), then line 3 is also 
skipped. 


8.3.2. Adding New Entries 


Another example of table updating is that of adding new entries. The entry is new 
only in the sense that the data is new to the table. Space in the table must have 
been provided when the table was designed and loaded. For example, a table may be 
designed and loaded with zero entries; a zero entry would specify that the partic- 
ular location is empty and would provide space for inserting table entries. Once 
loaded, a iocation is no longer available for receiving data, so the LOKUP operation 


proceeds to the next zero entry. 
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Figure 8-6 illustrates the addition of an entry to a single table in which empty en- 
tries are indicated by zeros. 
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Figure 8-6, Adding a New Entry to a Single Table 


The following explains the entry addition operation. 


(1) On line 1, the LOKUP operation searches for the next empty location in the 


table named TABADD. Indicator 20 is turned on only if an empty location is 
found; if the table is full, indicator 20 will be reset (turned off). 


(2) On line 2, if indicator 20 is set (on), the contents of NEW are moved to the in- 


dicated empty location and to the special holding area. 


Figure 8-7 illustrates the addition of entries to two related tables (Argument and 
Function). In this example, it is assumed that the need to make entries into the 
tables is based on the fact that the new data has not been previously stored. 


The problem facts are: 


NEWLAB is the name of the new argument entry. 

NEWCON is the name of the new function entry. 

TABNAM is the name of the Argument Table. 

TABADD is the name of the Function Table. 

Indicator 28 specifies that NEWLAB and NEWCON are available for storage. 


Indicator 30 specifies that the new entry (NEWLAB) is a duplicate of one 
already in storage. 


Indicator 32 specifies that there is space available for the new entries. 


Indicator N32 specifies that the table is full and has no room for the new 
entries. 
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Figure 8—7. Updating Two Related Tables 


The following explains Figure 8-7 in detail: 


Line 1 - Checks for a duplicate entry NEWLAB; if found, indicator 30 is set; if not 
found, indicator 30 is reset (off). 


Line 2 - If indicator 30 is set, a duplicate entry has been found, and the program 
jumps to the ERROR subroutine. If indicator 30 is reset, line 2 is skipped. 


Line 3 - A search is made for the next empty entry (000); if not found, indicator 32 
is turned off (reset). If found, indicator 32 is turned on. 


Line 4 - If indicator 32 is reset, the table is full, and the program jumps to the FULL 
subroutine on line 14. If indicator 32 is set, line 4 is skipped. 


Lines 5 and 6 - If indicator 32 is set, space is available in the tables. Move the con- 
tents of NEWLAB to the empty space in the Argument Table TABNAM and 
the contents of NEWCON to the empty space in the Function Table TABADD. 


Line 7 - Jump to the subroutine CONTIN on line 21 to continue program. 
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Lines 8 through 12 - The ERROR subroutine; these lines are executed only if in- 
dicator 30 is on. 


A 
Line 13 - Jump to subroutine CONTIN on line 21 to continue program. 
Lines 14 through 20 - The FULL subroutine; these lines are executed only if in- 
dicator 32 is reset (off). 
Line 21 - Continuation of program. 
a 
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APPENDIX A. SAMPLE PROGRAM 


INTRODUCTION 


The following three problem examples demonstrate the application of RPG techniques 
and procedures. The typical operations chosen to illustrate the use of the RPG are 
as follows: 


(1) Sales Analysis Listing 
(2) Daily Gross Pay Calculation 
(3) Stock Status Report (Disc) 


EXAMPLE NUMBER 1 — SALES ANALYSIS LISTING 


A Sales Analysis Listing is to be prepared using billing line item detail cards, The 
cards are in sequence by territory, salesman, and product number. Figure A-1 illus- 
trates the required data flow, and Figure A-2 shows the order card format. 
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Figure A-1. Sales Analysis Data Flow 
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Figure A—2. Billing Line Item Detail Card Format 
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INPUT 


(1) Print field headings at the top of every page. One line is to be printed for each 
customer order card. 


(2) Quantity and sale amount totals are to be printed when there is a control break 
in product (minor), salesman (intermediate), or territory (major). 


(3) Overall totals are also accumulated and printed. 


(4) All fields are to be zero suppressed and edited as indicated on the printer 
format chart (Figure A-3). Figures A-4 through A-7 illustrate how the RPG 
forms would be completed for this problem. 


File Description Specifications — Figure A-4 


Line 1 specifies the input file read into the system; line 2 indicates the printed 


report, 


Input Specifications — Figure A-5 


Lines 1-7 of the input specifications identify and describe billing line item detail 


cards. Only those fields needed in actual processing and output are specified. 


(1) Line 1 defines the input file and relates it, by file name, to the File Description 
Specifications. 


(2) Lines 2-7 describe the fields within the input file. 
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Figure A-3. Weekly Sales Analysis Listing 
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Figure A~4. Sales Analysis File Description 
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Figure A—5. Sales Analysis Input Specifications 


























A2.4. Calculation Specifications — Figure A-6 


(1) Lines 1 and 2 specify addition calculations for the detail billing line items, 
detail cards in which product quantity (PQTY), and product amount totals 
(PAMT) are accumulated. 


(2) Lines 3 and 4 are executed only on a level 1 (minor) break, that is, when there 
is a change in product number. The two entries cause the salesman quantity 
(SQTY) and salesman amount (SAMT) totals to be accumulated. 


(3) Lines 5 and 6 specify that on a level 2 (intermediate) break (change in sales- 
man number), territory quantity (TQTY) and territory amount totals (TAMT) are 
accumulated. a 


(4) Lines 7 and 8 specify that on a level 3 (major) break (change in territory number), 
final quantity (FQTY) and final amount totals (FAMT) are accumulated. 


NOTE: When a level break occurs, all calculations for lower level entries are per- 
formed prior to the calculation for the higher level. 


REPORT PROGRAM GENERATOR 
CALCULATION SPECIFICATIONS 
PROGRAM PROGRAMMER DATE PAGE. OF____ PAGES 


CONTROL DECIMAL MALE 
oe POSITIONS ADJUST 


| __motcarors | 
Factor Bia 
PROGRAM 
COMMENTS IDENTIFICATION 
laits i7hs 278 F 


tiiiiijli tt ti ot 

















Mira Aen ees ects Ele ices eet PO) A PR 8 





es ee 





, De 








cee ea re cer | .1,0]2| an ep Ger ena 
TQT 
0,7, a borrpiririns 


Dopp t poi bt tp jy ty 














Figure A—6. Sales Analysis Calculation Specifications 
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A2.5. Output Specifications — Figure A-7 





(1) Lines 1-8 provide for printing headings at the top of each page. 

(2) Detail line editing and printing is specified on lines 9-15. 

(3) Lines 16-18 cause the printing of the level 1 (L1) totals (product number totals), 
including the constant asterisk (*). 

(4) Lines 19-21 provide for editing and printing of level 2 (L2) totals (salesman 
totals), 

(5) Lines 22-24 provide for editing and printing of level 3 (L3) totals (territory 
totals). 

(6) The final total line (LR) is specified on lines 25-27, 

(7) All fields, except.the description, are zero suppressed. The amount field for 
the detail and total lines has comma and decimal point editing, On total lines, 
the total level is identified by one through four asterisks printed to the right of 
the amount total. All total fields are cleared to zeros after the ‘specific total 
level has been printed (B in Column 39). 

REPORT PROGRAM GENERATOR 
OUTPUT FORMAT SPECIFICATIONS 
PROGRAM Kaasss PROGRAMMER ____ ~ a DATE PAGE OF ___ PAGES. 
FORM M5 STACKER ZER 





OUTPUT caer 


END 
iN CONSTANT OR EDIT WORD STERLING | PROGRAM 
SIGN | IDENTIFICATION 
POSITION 
21 2 Baa 25126 0 by 1% 

















‘SPR0.D, DESCRIP TON!) 1 i 





‘ 
QUANTITY et 





AMOWUIN:T)’) ) pp pp pp repay 











1 ee RS Rs Ss es CS CC 





hanes GPO Sie A SK RES GER MS NE RR PS UP Gs 





oS ee ee 





Popp de tig bop pt py pt td 





0 |. i 


TO EES (2 a Ya ees VWs MU al 








PQTY¥i 1 ES cols Vee ee Ee OW et Ce 








PAM T Oe 








[Cs as Eanes Ws Cs SO Ke Se Rs CO Ss Ss CO 





ke? 
Ope Se 








a oe es ee oe eS ea We Ds 








XS ST CN i Ce Ces Ya TS De WaT dC TS ME De 





‘ 0 & ***," 
got oite td bog set p tre tt 











dodat pp pt tig jp pit ft gt tii 


0 & 44" 
pos 1? om at Bi bifiiit itijijiot 








Figure A~7. Sales Analysis Listing Output Specifications 
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A3. EXAMPLE NUMBER 2 — DAILY GROSS PAY CALCULATION 


A daily job payroll report and employee payroll summary card are to be prepared from 
daily job cards. The cards are in sequence by employee number. For each job card the 
regular, shift, overtime, and total earnings are calculated. These extensions are 
printed with the detail information from the job card. When a control break in employee 
number occurs, total hours and earnings are printed, and an extended payroll summary 
card is punched, Final totals will be printed at the end of the report. Figure A-8 
shows the required data flow, and Figure A-9 shows the input and output card formats. 
The completed forms are shown in Figures A-10 through A-14. 
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Figure A-8. Daily Gross Pay Data Flow 
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Input and Output Card Formats 


(1) Sequence check employee number. 
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INPUT: DATE CARD 





INPUT: DAILY JOB CARD 


OUTPUT: DAILY PAYROLL 
SUMMARY CARD 





(2) Calculate regular earnings and half adjust (round to dollars and cents). Regular 


earni 


(3) 


ngs = 


regular hours x rate. 


overtime code in Column 53 for 1 or 2. 


If Column 53 is 1, then 


overtime earnings = 


If Column 53 is 2, then 
overtime earings 


(4) Calculate gross pay. 


Gross pay = 


1.5 x overtime hours x rate. 


2.0 x overtime hours x rate. 


Calculate overtime earnings and half adjust (round to dollars and cents). Check 


overtime earnings + regular earnings + shift bonus. 
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(5) Calculate shift bonus. Check shift code in Column 54 fora 1. 


If Column 54 is 1, then 
shift bonus = gross pay x 5%. 


If Column 54 is blank, this calculation is omitted. 
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Figure A—10. Daily Gross Pay Report Format 


(6) Calculate total hours. 
Total hours = regular hours + overtime hours. 


(7) Accumulate the following employee totals for summary card output and payroll 
listing: 


Regular hours 
Overtime hours 
Total hours 
Regular earnings 
Overtime earnings 
Shift bonus 

Total earnings 
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PAGE: 


(8) Accumulate final totals for all fields specified in step 7. 


ake (9) The first card of the input file is a date card. This date is printed at the top 
of every page on the same line as the page number. The second line of print- 
ing on every page is the column heading. 


A3.2. File Description Specifications — Figure A-11 


Only three lines are needed on the File Description form. Line 1 specifies the 
input file: the job cards in the reader. Lines 2 and 3 specify the two outputs: 
the printer and punch, 


REPORT PROGRAM GENERATOR 
FILE DESCRIPTION 
PROGRAM PROGRAMMER DATE 


FORM RA TYPE FILE ORGANIZATION 
Y EXTENSION FILE ADDITION CYLINDER OVERLOW 


oe PAGE OF. PAGES 











LOGICAL 
UNIT 
NUMBER 


RECORD 
LENGTH 


PROGRAM 
IDENTIFICATION 

















Figure A-T1T. Daily Gross Pay File Description Specifications 


A3.3. Input Format Specifications — Figure A-12 


The input form identifies the job card. Record indicator 01 is turned on if Column 

52 contains al punch. All the fields requiring processing are indicated under field 

—S name, Employee number (EMP) is the level 1 control (L1) and is to be sequence 
checked (M1). When the card is read, the overtime hours field (OHD) is checked 
for zeros. If the field is all zeros, indicator 10 is turned on. This eliminates the 
necessity of performing the detail calculations for overtime. If the shift code 
(Column 54) is blank, indicator 15 is turned on. If indicator 15 is not on, shift bonus 
is calculated and added to gross pay. 


A date card, which is identified by a 6 punch in Column 52, turns on record indi- 
cator 06. The date is punched in Columns 1-6 in the form MMDDYY. 
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Figure A~12. Daily Gross Pay Input Format Specifications 


DUT FTEREES FE a | SES IVESSS PESTS = 
+24 Pion. . | 
area 











A3.4,. Calculation Specifications — Figure A-13 


Every calculation line is checked to determine whether indicator 01 is on so that 
calculations are only performed on detail cards and not on the date card. 


Line 1 calculates regular earnings. Lines 2 and 3 check for overtime codes. If 
indicator 10 is not on (N10), the overtime code is compared to 1. If equal, the 
indicator 11 is turned on. If indicator Hi is turned on, the processor is halted at 
the end of the current detail card cycle. This indicates that the overtime code is 
missing from Column 53. 


If indicator 10 is not on (N10), line 3 compares the overtime codeto 2. If they are 
equal, indicator 12 is turned on. If the code is greater than 2 (an error), Hlis 
turned on and the program is brought to a halt. 


Lines 4-6 calculate overtime earnings. Lines 7-17 are the detail accumulations 
which occur for every job card. Totals by employee are accumulated. On lines 8 
and 9 shift bonus is calculated and added to gross pay if indicator 15 is not on 
(N15). On line 16 shift earnings are added to shift total only if indicator 15 is not 
on (N15). Note that on lines 11-17 (also lines 18-25), the factor 2 field initially 
has a value of zero. Its contents are replaced by the accumulated sum as totals 
are developed. 





Lines 18-24 are executed only when a control break occurs on employee number 
(when indicator L1 ison). These lines accumulate final totals. 
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Figure A~13. Daily Gross Pay Calculation Specifications 


A3.5. Output Format Specifications — Figure A-14 


The output form specifies two output files named PRINTOUT and SUMMARY 
(punching). Printing occurs at header, detail, and total time. Punching occurs only 
at total time. 


For each different line of print it is necessary to specify the file name, the type 
of line (header, detail, or total), and the indicator and the fields to be printed on 
that line. 


Lines 1-4 identify the first header line. The fields DATE and PAGE are printed as 
headers when overflow occurs or when indicator 06 is on. Page numbering starts 
with page 1. Indicator 06 is on for the first card only (date card). The form advances 
to Channel 7 (top of next page) before printing the first header line and spaces two 
lines after printing. Lines 5-10 designate the second header line (column headers), 
This line is generated by the RPG. 


Lines 11-22 specify the detail line. The hour and earning fields are edited ac- 
cording to the edit words in Columns 45-70. The apostrophes indicate the beginning 
and the end of the edit word. The zero in each edit word specifies the end of zero 
suppression, 
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Figure A~14. Daily Gross Pay Output Specifications (Part 1 of 2) 


Decimal points indicate where decimals are to be inserted. The B in Column 39 
indicates that the fields OED and SHED are to be cleared to zeros after printing. 
Lines 23-25 (Figure A-14, Part 1) and lines 1-10 (Figure A-14, Part 2) specify 
punching at total time when the L1 level indicator is on. 


Line 9 of part 2 causes a 2, generated by the RPG, to be punched in Column 52 of 
the summary card. 


Lines 11-18 of part 2 specify the total line which is printed when the L1 indicator 
ison. All fields are set to zeros after printing (B in Column 39) so that new totals 
may be accumulated for the next input card. All specified fields are edited accord- 
ing to the edit words in Columns 45-70. All fields are zero suppressed with decimals 
inserted, The paper advances two spaces after printing. Lines 19-26 of part 2 
specify the final totals which are printed when the LR (last record) indicator is on. 
All fields are edited according to the specified edit words. The processor is brought 
to a halt after the final totals are printed. 
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Figure A-14, Daily Gross Pay Output Specifications (Part 2 of 2) 





A4, EXAMPLE NUMBER 3 — INVENTORY APPLICATION USING DISC STOCK STATUS 


BALANCE RECORD 


A daily stock status listing and summary record updating are to be prepared using the 


following records or cards in sequence by part number: 


(1) The stock status balance record on disc which contains bin quantity, on-order 
quantity, available quantity, usage last year, usage this year, and so on. 


(2) On-order cards which increase the on-order quantity and the available quantity. 


(3) Receipt cards, which increase the bin quantity and decrease the on-order 
quantity. 


(4) Issue cards which decrease bin quantity and available quantity, and increase the 


usage this year quantity. 


13 








UP-7707 


Appendix A 
UNIVAC 9400 


REPORT PROGRAM GENERATOR SECTION: PAGE: 


A detail line is printed for each input record. An updated stock status summary record 
is calculated and, on a change in part number, is printed and written out on disc. If 

the total available quantity is less than or equal to the reorder point, an order card 
must also be calculated and punched. Figure A-15 shows the pattern of data flow, 

and Figures A-1l6a, 16b, and 16c show the input record formats. Figures A-17a, 17b, and 
17c show the output record formats. Figures A-18 through A-22 illustrate the completed 
forms and report. 
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Figure A-15. Stock Status Report Data Flow 
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Figure A~16a. Date Card Input 
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Figure A~16b. Stock Status Dise Record Input 
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Figure A—16c. Input Card Formats Types 1, 2, and 3 


NEW 
BIN 


DESCRIPTION QUANTITY 

















NEW 
AVAILABLE | REORDER | REORDER | USAGE 
QUANTITY POINT QTY. LAST 





56 | 57 





61 | 62 66/67 73/74 80 


Figure A—17a. Stock Status Disc Record Output 
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Figure A~17b. Order Card Output 


If negative available quantity is indicated on the stock status balance record printout, 
then an X-punch (11 zone) is punched in Column 50 of the order card. 


An order card is present only if replenishment is necessary. 
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Figure A~I7c. Daily Stock Status Report Format 
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A4.1. Procedure 


A4.2. 


(1) 
(2) 
(3) 


(4) 


(5) 


(6) 


The input files are sequence checked by part number. 
The stock status balance record from disc is stored for updating and change. 


The on-order quantity (Columns 43-49) from the on-order card is added to the 
summary record totals of on-order and available quantities. 


Quantity received (Columns 43-49) from the receipt card is added to the sum- 
mary record total of bin quantity and subtracted from the summary record total 
of on-order quantity. 


Quantity issued (Columns 43-49) from the issue card is treated as follows: 
(a) Subtracted from the summary record total of bin quantity; 

(b) Subtracted from the summary record total of available quantity; 

(c) Added to the summary record total of usage this year. 


When a change in part number occurs, the summary record total of available 
quantity is compared to the reorder point field. If the available quantity is less 
than or equal to the reorder point, the following calculation is performed and an 
order card is produced: Quantity to be Ordered = Reorder Point + Reorder 
Quantity — Available Quantity. 


If an order card is produced, quantity to be ordered must also be printed in print 
positions 74-80. If the accumulated available quantity is negative, an asterisk 
(*) is placed in print position 60 of the stock status report, and an X-punch 

(11 zone) is punched in Column 50 of the on-order card. 


Description of the Stock Status Report Text 


The layout of this report is shown in Figure A-17c. 


(1) 
(2) 


(3) 


(4) 


The report header line consists of the current date from the date card. 


The stock status balance input record is to be printed as shown on line 13 of 
Figure A-17c. 


Designating information from the on-order card, the receipt card, and the issue 
card are printed as shown on lines 14, 15, and 16, respectively. The on-order card 
quantity field is printed as a positive quantity in print positions 42-48 and 51-57 
of line 14. The receipt card quantity field is printed as a positive quantity 
in print positions 33-39 and as a negative quantity in print positions 42-48 
(line 15). Issue card quantity field is printed as a negative or a positive quantity 
in print positions 33-39 and 51-57, and as a positive quantity in print positions 
90-96 (line 16). 


The updated ‘stock status balance record is printed as shown on line 18 of 
Figure A-17c. 


18 
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A4.3. File Specifications — Figure A-18 


uly The File Description form specifies the file name of the two input files and the three 
output files. The device associated with each file is specified. The entry A under 
sequence indicates that the input files are in ascending order. This specification 
is related to the M1 entries on the Input Format Specifications form. Each file except 
the printer uses two I/O areas to improve processing efficiency. 


REPORT PROGRAM GENERATOR 
FILE DESCRIPTION 
PROGRAM PROGRAMMER DATE PAGE____ OF __ PAGES 


FORM RA TYPE FILE ORGANIZATION 
TYPE ‘YPE EXTENSION FILE ADDITION CYLINDER OVERLOW 
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LENGTH UNIT NAME OF WENTIFICATION 


NUMBER LABEL EXITt 


























Figure A~18. Inventory File Description 


A4.4. Input Specifications — Figures A-19 and A-20 


(1) Lines 1 and 2 specify the date card. 


(2) The OR relationship is used on lines 3-5 to describe the on-order, receipt, and 
issue cards because all three records have the same fields in the same positions. 
Since part number is also specifiedon these card types, the L1 and M1 entries 
are made on line number 7. A level 1 control break (L1) occurs upon a change in 
part number. Part number is also sequence checked (M1). 
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Figure A—19. Inventory Card Input Specifications 
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REPORT PROGRAM GENERATOR 
INPUT FORMAT SPECIFICATIONS 
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A4.5. 


Figure A—20. Inventory Tape Record Input Specifications 


Lines 1-13 are the specifications for the input stock status balance disc record. 

Part number is sequence checked (M1). If the available quantity field (SAVAIL) is 
negative, field indicator 17 is turned on. The matching record indicator (MR) is turned 
on when a disc record matches the input card records. 


Calculation Specifications — Figure A-21 

(1) Lines 1 and 2 specify the calculations for each of the on-order cards. 

(2) Lines 3 and 4 specify the calculations for each of the receipt cards. 

(3) Lines 5-7 specify the calculations for each of the issue cards. 

(4) Lines 8-11 specify the calculations executed at total time. 

NOTES: (1) Matching record indicator (MR) indicates that lines 1~7 are processed 
only when thereis a match on part number between the disc record and 


the card records. 


(2) Resulting indicator 17 represents a negative available quantity and is 
used to control output. 


Resulting indicator 18 represents a negative on-order quantity; it is 
used to clear to zero theon-order field at total time. 


Resulting indicator 16 is turnedon when the available quantity is less 
than or equal to the reorder point. When thisindicator is on, lines 10 
and 11 are executed. 





UNIVAC 9400 Appendix A 21 


UP-7707 REPORT PROGRAM GENERATOR SECTION: PAGE: 
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CALCULATION SPECIFICATIONS 
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Figure A-—21. Inventory Calculation Specifications 


A4.6,. Output Specifications ~ Figure A-22 


(1) Lines 1~3 (Figure A-22, Part 1) provide for the printing of the data at the 
top of each page. 


(2) Lines 4-12 (Figure A-22, Part 1) provide for the printing of the input stock 
status balance record. 


(3) Lines 13—26 (Figure A-22, Part 1) provide for the printing of the on-order, 
receipt, and issue cards. 


(4) Lines 1-7 (Figure A-22, Part 2) provide for the punching of an order 
card at total time and only if indicator 16 is on. 


NOTE: An X punch (11 zone) is placed in Column 50 of the card if available 
quantity is negative. 


(5) Lines 8—22 (Figure A-22, Part 2) provide for writing the updated ‘stock 
status balance record out on disc. 


(6) Lines 21-25 (Figure A-22, Part 2) and lines 1-5 (Figure A-22, Part 3) 
provide for the printing of the updated stock status totals. An asterisk 
(*) is printed in print position 60 if the available quantity is negative. 
Quantity to be ordered is printed in print positions 74-80 if an order _ 
card has been punched. 
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Figure A—22. Inventory Output Specifications (Part 1 of 3) 
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Figure A~22. Inventory Output Specifications (Part 2 of 3) 
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APPENDIX B. SUMMARY OF 
MODAL PROCESSING 
FEATURES 


Bl. INTRODUCTION 


The UNIVAC 9400 Report Program Generator is capable of compiling, for execution on 
the 9400 only, source programs written in the RPG language for the 9400 (as described 
in this document), the UNIVAC 9200/9300 (as described in UNIVAC 9200/9300 Systems 
Tape and Disc Report Program Generator, UP-7620, current version), and IBM System 
360 Model 20 (as described in IBM System 360 Model 20 Disc and Tape Programming 
Systems Report Program Generator, IBM document number C24-9001-3). 


Since the three languages are slightly different, the user of the UNIVAC 9400 RPG 

who wishes to compile a program originally written for the UNIVAC 9300 or IBM 360 
Model 20 is required to include an appropriate entry in Column 7 of the RPG control 
card (see Appendix E): 


‘3’ for compilation of UNIVAC 9200/9300 programs; 
‘2’ for compilation of IBM 360 Model 20 programs. 


Any other entry in Column 7 (including blank) causes the compiler to assume that its 
input is a UNIVAC 9400 source program. Hence, there are considered to be three modes 
of compilation. 


The compiler always assumes that the UNIVAC 9200/9300 or IBM 360 Model 20 source 
program is written in the most advanced version of RPG available for the given system; 
that is, disc RPG rather than tape or card RPG. Therefore, any fields of RPG source 
Statements which are permitted to contain comments in the card or tape version, but are 
reserved for significant entries in the disc version, may have to be changed to blanks 
for successful compilation. 


The following major distinctions are observed by UNIVAC 9400 RPG in the three modes 
of compilation. 


Bl1.1. File Format, Block Length, and Record Length 


(1) UNIVAC 9200/9300 and IBM 360/20 Mode - file format, block length, and record 
length may be omitted for card and printer files. The following assumptions are 
made by the compiler: 


Card files - format F, block and record length of 80; 


Printer files - format F, block and record length of 132. 
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(2) UNIVAC 9400 mode - file format, block length, and record length should be 
specified. 


B1.2. Card Zone and Digit Testing 


(1) UNIVAC 9200/9300 mode - card columns to be tested are translated to UNIVAC 
9200/9300 compressed code. Zone testing is performed on bits 6 and 7 of the 
input and master characters, while digit testing is performed on bits 0 through 5. 


(2) IBM 360/20 mode - EBCDIC zones and digits are compared, except for &, - 
and blank, which are considered to have the same zones as A, J, and 1, 


respectively. 


(3) UNIVAC 9400 mode - zones and digits, as those words are used in punched- 
card processing systems, are compared without reference to internal representa- 
tion. The possible zones are: 

(a) 12-zone (characters A-I, &, plus zero) 


(b) 11-zone (characters J-R, —, minus zero) 
(c) O-zone (characters S-Z) 


(d) no-zone (characters 0-9, blank) 
All other characters are treated as having the same zone and the same digit. 


Bi.3. Printer Loop Channel Numbers 


Table B-1 shows all the valid printer channel numbers in the three modes of com- 
pilation. The compiler treats UNIVAC 9200/9300 channel numbers and IBM 360/20 
channel numbers internally as the corresponding UNIVAC 9400 channel number. The 

‘ printer loop for the execution of the compiled object program must be prepared in ac- 
cordance with this table. 


Overflow 
Channel 



















IBM 360 
MODEL 20 


UNIVAC 
9200/9300 









Home Paper 
Channe} 


Other 
Channels 







12-13 


NOTES: (1) Channels 8 and 9 of IBM 360 Mode! 20 programs are both translated as Channel 8. 
IBM 360 Model 20 programs that make use of both channels must be modified. 





(2) Channel 15 may be specified in any mode, and causes printer spacing at the rate of 
8 lines per inch instead of 6 lines per inch. 


Table B—~1. Valid Printer Channel! Numbers 
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B1.4. Tape Rewind 


ag Table B-2 shows the valid codes and the corresponding rewind actions. 


Action Action 
At Start of At End of 


Processing Processing 


9200/9300 IBM 360/20 
Mode Mode 


Rewind, No Lock Rewind, No Lock 


or Blank Rewind, No Lock Rewind, Lock 
No Rewind No Rewind 
Rewind, No Lock No Rewind 
No Rewind Rewind, No Lock 
No Rewind Rewind, Lock 





Table B-—2, Valid Codes and Tape Rewind Actions 


B1.5. Sign Validity Checking 


The validity of the signs of certain fields is checked and corrected as required. 
The checking is performed for the MOVE, MOVEL, MLLZO and MHL ZO operations 
and for numeric fields in the input data. 


B1.5.1. MOVE and MOVEL 


When an alphanumeric field is moved into a numeric field, checking and correcting 
is performed as follows: 


(1) For the UNIVAC 9400 mode, signs 616 and By¢ are changed to Dj, Dyg¢ is 
unchanged, and all other signs are changed to Cié6: 


(2) For the UNIVAC 9200/9300 mode programs, sign checking is not performed. 


(3) For the IBM 360 Model 20 programs, signs Cj¢ through F4¢ are unchanged, 
sign 616 is changed to Dy¢ only if the accompanying digit is 016, and all 
other signs are changed to Cy¢. 


B1.5.2. Move Low to Low (MLL ZO) and Move High to Low (MHLZO) 


When factor 2 is alphanumeric and the result field is numeric, sign checking is 
performed as follows: 


(1) For UNIVAC 9400 mode programs, signs 6146 and By6 are changed to Dig 
Dy6 is unchanged, and all other signs are changed to Cy¢. 


(2) For UNIVAC 9200/9300 mode programs, signs 64¢ and 916 are changed to Dy¢, 
A16 through F 46 are unchanged, and all other signs are changed to Cy¢. 


(3) For IBM 360 Model 20 mode programs, signs Cy¢ through Fy¢ are unchanged, 
Sign 6,6 is changed to Dy¢ only if the accompanying digit is 016, and all 
other signs are changed to Cy¢. 
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B1.5.3. Input 


The signs of numeric fields in the input data including table data are checked for 
validity and corrected if necessary as follows: 


(1) Forthe UNIVAC 9400 mode, 616 is changed to Di6: Dié6 remains unchanged, 
and all other signs are changed to C16: 


(2) For the UNIVAC 9200/9300 mode, no checking is performed. 


(3) For IBM 360 Model 20 mode programs, signs C46 through F 46 are unchanged, 
sign 6;¢ is changed to Dy¢ only if the accompanying digit is 0,¢, and all 
other signs are changed to Cig: 


B1.6. Fixed Dollar Sign Editing 


Fixed dollar sign editing is not explicitly provided for UNIVAC 9200/9300 mode 
programs. See 5.3.7.2. 


B1.7. Record Sequence of Chaining Files 


(1) UNIVAC 9200/9300 mode - record sequence (Columns 7-8 of the File Extension 
Specifications) may be blank for chaining files and is otherwise ignored except 
for a syntactic validity check. 


(2) UNIVAC 9400 and IBM 360 Model 20 modes - record sequence is required for 
chaining file specifications. 
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APPENDIX C. SUMMARY OF 
PROGRAM INDICATORS 






TURNED ON ** 


INDICATOR 


Resulting Indicator 00 


Input 
Specifications 
Form 


The next time the | More than one Field Indicator 
associated field can be on at one time.* 
is read. 














Output Indicators At beginning of 
processing before 
any input records 


ate read. 

















Field Indicators 01-99 Indicators — 


(Calculation Form) 







By Blank or Zero | 

in specified field. 

By Plus in specified 
field. 

By Minus in specified 
field. 
















Plus Output Indicators 















Minus 












Field indicators — 
(Input Form) 
Indicators — 
(Calcutation Form) 
Resulting Indicators— 
(Calculation Form) 
Output Indicators 


If condition tested 
for occurs. 














Control Level At endof processing | At the beginning 


Halt indicators H0O-H9 
(Calculation Form) of last record read. of processing. 


Last Record LR 
Output Indicators 
Level Zero LO Control Level 
Control Level Indicators | Internal 
L1-L9 
Matching Record MR ea 


Internal 

















At beginning of 

processing before 
any input records 
are read. 






















Contro! Level 
Indicators — 

(Calculation Form) 
Output Indicators 


At end of following 
detail cycle. 


Remains on during detail 
calcutation and output 
cycle. 


By appropriate 
control level 
break. 




















After al! total 
calculation and 

output operations 
are completed. 


Indicators — 
(Calculation Form) 
Output Indicators 


After tota! time, 

if there is a matching 
record in asecondary 
file. 


Remains on during the com- 
plete processing of all records 
containing matching fields, 





























Remains on for detail time if 
turnedon after total. Remains 
on for one complete cycle (total 
and next detail) if turned on 
after detail. 


Indicators — 
(Calcutation Form) 
Output Indicators 


Overflow Indicators 
OA, OB, OC, OD, OE, 
OF, OG, and OV 


After detail or total 
time if overflow line 

detected during report 
output. 


After detail time. 






























Record indicators 01-99 











When another 
Record Indicator is 
turned on. 


Indicators — 
(Calculation Form) 
Output Indicators 


Input 
Specifications 
Form 


More than one Record 
Indicator can be on at 

one time only if chaining 
files are present.* 


When specified record 
has been read and is 
teady for processing. 







































Calculation 
Specifications 
Form 


Indicators — 
(Calculation Form) 
Output Indicators: 
Field Record Relation 


Resulting indicators 
01-99, HO-H9 
Plus 







The next time a 
calculation is 
performed for which 
the program speci- 
fies the indicator 
as a Resulting 
Indicator. 


More than one Resulting 
Indicator can be on at 
one time.* 









By Plus baiance in 
field 
By Minus balance in 
field. 
By Zero balance in 
field. 





Minus 














Zero 








Compare Operation 
High 
Low 
Equal 









If Factor 1>Factor 2 
{f Factor 1<Factor 2 
If Factor 1=Factor 2 



















First Page 1P Output Indicators At the end of 


detail time. 


At beginning of 
Processing before 
any input records 
are read, 





* Field Indicators, Record Indicators and Resulting Indicators are numbered in the range 01-99 and are mutually exclusive (there are only 99 
indicators in total). 


**All indicators can be turned on or off by using SETON of SETOF operation. 
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APPENDIX D. STERLING NOTATION 


INTRODUCTION 


Sterling notation is the expression of monetary fields in terms of pounds, shillings, 
and pence. One pound is equal to 20 shillings; one shilling equals 12 pence. Entries 
for sterling notation are made on the control card and on the Input and Output Specifi- 
cations form. Monetary fields using sterling notation must conform to the specific 
rules indicated in this section. RPG uses three basic formats for the representation 
of sterling amounts. 


Format 1 


This format is used if the output is to be printed. Format 1 processes sterling 
amounts in the standard notation of pounds, shillings, and pence, including decimal 
fractions of a penny. 


Format 1 allows for a maximum of 10 positions for pounds, 2 positions for shillings, 
2 for pence, and 3 for decimals. Table D-1 illustrates maximum size for each format. 


PRINTING (OUTPUT) 


READING/PUNCHING 
(INPUT /OUTPUT) 


READING/PUNCHING 
a_i 





Legend: 

£ pound digit 

s shilling digit 

d penny digit 

f penny fractional digit 


Table D—1. Maximum Sizes of Sterling Notation Formats 
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D1.2. Format 2 



















Format 2 is used for both input and output. Input cards are read and output cards esi 
are punched in this format. 
Format 2 allows for a maximum of 10 positions for pounds and 3 positions for deci- 
mals. Shillings and pence may be represented in either the British Standards Institu- 
tion (BSI) or Hollerith code. 
Table D-2 lists examples of sterling amounts written in each of the formats. 
NEGATIVE POSITIVE 
1 0 19 11 15 425 10 1M 188 00 0G 
2A 19 + 15 _ 1M 00 
2D 0 I + 15 425 E - 1M 18H 0 7 
eG 


‘Table D~2. Sterling Amounts Expressed in Available Formats of Notation 


D1.2.1. Shillings 


BSI Code 


A ‘single column is used to represent the shillings field. Amounts of 0 through 9 
are represented by the punches 0 through 9, ten shillings by a 12 punch in 

the column, and eleven through nineteen shillings by the A through I punches, 
respectively. 


Hollerith Code 


Two columns are used to represent the shillings field. Decimal notation is used 
with the first column representing the tens position (that is, it contains either 0 or 
1) and with the second column for the units (digits 0 through 9). 


D1.2.2. Pence 
BSI Code 
The pence field is represented by a single column. Amounts of 0 through 9 are repre- 


sented by the punches 0 through 9, ten pence by a 12 punch, and eleven pence by 
an 11 punch. 
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Hollerith Code 


SS ; The Hollerith code is similar to the pence field of the BSI code in that both use a 


single column to represent pence. Amounts of 0 through 9 are represented by the 
punches 0 through 9. However, ten pence is represented by an 11 punch and eleven 
pence by a 12 punch. Format 2 may be used in any of the following combinations 
of BSI and Hollerith codes. 


D1.2.3. Format 2 Types 











TYPE OF FORMAT SHILLINGS PENCE 
Format 2A Hollerith Code Hollerith Code 
Format 2B Hollerith Code BSI Code 
Format 2C BSI Code BSI Code 
Format 2D BSI Code Hollerith Code 


Table D-1 illustrates the maximum size of Format 2. Refer to Table D-2 for an 
example of sterling amounts written in Format 2. Table D-3 is a summary of the 
formats for sterling notation. 


PRINTING FORMAT CARD READING/PUNCHING FORMAT 
FIELDS FORMAT 1 FORMATS 2C, 2D FORMATS 2A, 2B 
| pounos 1-10 Positions 1-10 Positions 1-10 Positions 


SHILLINGS 


2 Positions (contents 
PENCE not to exceed 11) 
BSI or Hollerith Code BSI or Hollerith Code 


Table D—2, Summary of Sterling Notation Formats 












2 Positions (contents 1 Position 


not to exceed 19) 


2 Positions (contents 
not to exceed 19) 
Hollerith Code 
















BSI Code 






1 Position 1 Position 





D1.2.4. Signs 


The sign is found in the least significant digit of the decimal portion of a sterling 
field. However, if no decimal fractions of a penny exist in the field, the zone 
punch identifying the sign is placed in the units position of the pounds field. 


The sign codes are as follows: 


~—(minus) = 11 punch 
+(plus) = 12 punch or blank 
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If a sterling input field is not signed according to the above specifications, then 
the position of the sign can be specified in Columns 71-74 of the Input Specifica- 
tions form. 


NOTE: An 11 punch always requires a digit underpunched in the same column. 
A 12 punch in the appropriate position is always used to signify positive 
output amounts. 


D1.2.5. Leading Zeros 


D1.3. 


D1.4. 


Leading zeros can be represented by blanks in sterling input fields. 


Pence Format 


oe cad 


The pence format is a ‘‘pence only’’ notation of a sterling amount (all pounds and 
shilling fields are converted to pence). 


Pence format allows for a maximum of 16 positions - 13 positions for pence and 3 
decimal positions. 


Table D-1 illustrates the maximum size of the pence format. Refer to Table D-2 
for an example of sterling amounts in pence format. 


NOTE: RPG processing of sterling amounts requires that certain information must 
be entered on the Input and Output Specifications forms. No entries are 
required on the Calculation Specifications form, but the user should remember 
that all calculations are done by the RPG in pence format. Therefore, this 
fact must be considered when defining the length of result fields or when 
using factors 1 and 2. 


Specifying Sterling Notation 


The presence of sterling fields is indicated to the RPG by additional entries in the 
RPG control card (Columns 17-20). 


Sterling input information can be represented in two formats: 

m Hollerith 

m British Standards Institution (BSI) 

The RPG converts the input fields into pence format fields. If the output is to be 
printed, the fields are converted with shillings and pence printed in two positions 


each. If the output is to be punched, the output is converted to either Hollerith or 
BSI format. 
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RPG Control Card 


All sterling input to any one program must be in one format and all sterling output 
punched by any given program is in one format, not necessarily that of input. To 
select the required sterling routines, the RPG needs information regarding the in- 
put and output formats. This information is entered in Columns 17-20 of the RPG 
control card and is as follows: : 


COLUMNS 
17 Shilling input format 
Codes: 
1 = Hollerith 
2 = BSI 
Blank = Input has no sterling currency fields, or fields are in 
pence format only. 
18 Pence input format 
Codes: 
1 ='Hollerith 
2 = BSI 
Blank = Input has no sterling currency fields, or fields are in 
pence format only. 
19 Shilling output format 
Codes: 
1 = Hollerith 
2.= BSI 
Blank or 0 = No output sterling currency fields, or fields are in 
printer format. 
20 Pence output format 
Codes: 
1 = Hollerith 
2 = BSI 


Blank or 0 = No output sterling currency fields, or fields are in 
printer format. 


NOTE: Ali fields represented as sterling fields are converted (if required) ac- 
cording to the specifications in the RPG control card. 


Input Specifications 


The sign of sterling fields may be in standard or nonstandard position. If the 
sterling field has decimal positions, the standard position of the sign is in the 
rightmost decimal position of the field. If the sterling field has no decimal posi- 
tions, the standard position of the sign is in the units position of the pounds 
field. The following input rules must be considered: 


(1) One of the digits 0, 1, 2, or 3 must be entered in Column 52 of the Input 
Format Specifications form to indicate the required number of decimal positions. 


(2) Column 43 (Data Format) of the Input Format Specifications form must be 
blank, since sterling fields may not be specified in packed format. 
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(3) On input, the pounds field must consist of at least one and no more than nine 
positions. 


(4) If the sign is in standard position, enter an S in Column 74. If not, enter the 
actual position in Columns 71-74. 


D1.4.3. Output Specifications 


Column 44 (Data Format) of the Output Format Specifications form must be blank, 
since sterling fields may not be specified in packed format. 


D1.4.3.1. Tape, Disc, and Punched Output 


The field may be specified as any combination of Hollerith or BSI shilling and 
pence formats. 


Output which is not printed may not be edited or zero suppressed. 


D1.4.3.2. Printed Output 


For printed output, the sign appears in the least significant digit of the sterling 
field. Shillings and pence are printed in two positions each. It is necessary to 
add two additional positions for printed output when the shilling input is in the 
BSI format. One position must be added when the shilling input is in the Hollerith 
or pence-only format. Also, an extra position is required to avoid the loss of the 
high order digit as described under lengths of pence format fields (see D1.4.5). 


Hence, three extra output print positions are required when the shilling input is 
specified in BSI format. Two extra output print positions are required when the 
‘shilling input is specified in Hollerith or pence-only format. 


If neither zero suppression nor an edit word is specified, leading zeros in the 
tens digit of the shillings and pence fields are suppressed. 


Editing is permitted only on printed output files. The rules governing the use of 
edit words are the same as those for decimal fields. The features available are: 


a Zero suppression in the pounds field. 


m Zero suppression in the shillings field, if both pound and shilling values are 
zero. 


m Zero suppression in the pence fields, if pound, shilling, and pence values are 
zero. 


mw Zero suppression preceding signs, and suppression of separation marks be- 
tween pounds and shillings, shillings and pence, and pence and decimals. 


D1.4.3.3. Example of Proper Edit Masks 


If the RPG control card contains 1 in Column 17 and sterling field STERA has 
a length of 6 (defined on either an input specification or a calculation specifica- 
tion), a correct edit word for the field is the following: 


‘AAAA&AA&OACR’ 
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Since the shilling input is in Hollerith format, the sum of the digit select 
characters and the significant start character must be two greater than the 
length of the field. 


If the RPG control card contains a 2 in Column 17, a correct edit word for the 
field is: 


‘AAAAA&AA&OACR’ 


Since the shilling input is in BSI format, the sum of the digit select characters 
and the significant start character must be three greater than the length of the 
field. 


Calculation Specifications 


While no additional entries are required in this form, the user should keep in mind 
that all calculations are done in pence format. This must be considered when de- 
fining the length of result fields or when using factors 1 and 2. 


Lengths of Pence Format Fields 


If a pence format result field is to be reconverted into a sterling output field, the 
highest amount it is permitted to contain is 2,399,999,999,999,999. This converts 
to a field containing ten pounds positions, which is the maximum allowed. 


In order to avoid the possible loss of the high order digit, fields that are read in 
as Hollerith or BSI sterling always contain one more position when written as 
Hollerith or BSI sterling. For example, the five position sterling input field 
9919+ (Hollerith format) converts to the five-position pence field 23999. When the 
RPG writes this field, it must allow for a five-position pence field containing up 
to 99999 pence (which converts to 416133, Hollerith format), the field on output 
is six positions long. 
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APPENDIX E. OPERATING 
CONSIDERATIONS 


El. INTRODUCTION 
This appendix provides operational and related information which enables the 
programmer to compile and execute his RPG program. Information is presented for 
the following: 
ws RPG source program deck arrangement 
a Job control statements 
= RPG control card format 
w Halt indicator processing 
mw Variable-length records 
a Printing line counter tape/disc files 
a Table entry at execution time 


ws RPG console messages 


For additional information related to the descriptions which follow, see UNIVAC 9400 
System Job Control Programmers Reference, UP-7793 (current version). 
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E2. RPG SOURCE PROGRAM DECK ARRANGEMENT 


The programmer prepares the deck and arranges it as shown in Figure E—2. 


@) 
(2) 
3) 
(4) 
(5) 
(6) 
(7) 
(8) 
(9) 


Job control statements 

RPG control card 

File description specifications 
File extension specifications 
Line counter specifications 
Input format specifications 
Calculation specifications 
Output format specifications 


Terminating job control statement (/* in columns 1-2). 



















OUTPUT FORMAT 
SPECIFICATIONS 





CALCULATION 
SPECIFICATIONS 





INPUT FORMAT 
SPECIFICATIONS 





LINE COUNTER 
SPECIFICATIONS 





FILE EXTENSION 
SPECIFICATIONS 


FILE DESCRIPTION 
SPECIFICATIONS 





9400 RPG 
CONTROL CARD 





JOB CONTROL 
STATEMENTS 


Figure E~}. Source Program Deck Arrangement 
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Job control statements are provided in a sequence known as the control stream. 
Control stream preparation for tape and disc is described in the following paragraphs. 


« Tape RPG 


LABEL 6 OPERATION 6 





Afi 5 Ol] By 


OPERAND 


jnlp pel ee oe peep op ep oe eae y 
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f . ; 
A‘, UPD, O BSF H Ly 


ERT coer OO be We Cs ae Woe Gal 





Zo4, EF, SCR Pt th 








/,/, L FD S$ CR, 2 








{ 


* . 
pep oe Ta OPP EE OA SLE Bi GN OPT Eres 





me ba Ld ay ee ee pe 


ESTE OS ele Oca oe 








pope te ta tt 








on on 





pop be ba SEE, TABLE, Be Pa 


Be Cee 0d Oa Vt eC 


Lee i Pe oe 





$|0,U,R,C,E| ,P,R,0,G)R,AM, ,SiT A:T E,M[EN,T)S 
Poop Dt pee hye ie ie ep of ep ge 
pet ee eg bet fo I ee a de ie pe 








esp yb pe fe ap DP hee pe i fe ei A ce peel ee ea 








NOTES: 


(1) Source programs in a source library on tape can be compiled. This is possible 
only on systems where five or more tapes are available. The filename assigned 
to the library tape must appear in both the LFD statement and the PARAM 
statement. In addition, the name used to identify the program in the source 
library must be specified in the PARAM statement (the PARAM statements for 
RPG are given in Table E-1). Source libraries on the system reserve resident 
volume library (SYSRES) tape are not supported. 


(2) At execution time, filenames specified on LFD statements should be identical 
to the filenames in the source program’s File Description specifications. 
Exception: for 9400 mode and IBM 360 Model 20 mode programs only, the last 
character of eight-character filenames must be omitted from the LFD statements. 
Note that all files must be allocated by means of DVC and LFD statements, 


including card read 


er files. 
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m Disc RPG 
; LABEL t OPERATION & OPERAND 6 COMME 
10 
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DRPG, 


LIOAD$L)IB,, REL 


pe da ty SHEE, TABLE, Ej -3 
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PRO, GRAM PEAT EM EIN Sy pe ee ae pe 

po trre er teri teri tie ta 
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The logical DVC assignments could vary depending on the structure of the Supervisor 
being used and the physical device types and the location on a given system. The 
PARAM statements for RPG and their specifications are given in Table E-1. 
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CONTROL 
STATEMENT 


// PARAM 


// PARAM 


// PARAM 


// PARAM 


// PARAM 


NOTES: 
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OPERAND 


ont =] 8 I 


IN = programe 
name/filename 


VER = mm/nn 
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DESCRIPTION 


N — cancels compiler job if an error 
occurs that prevents output of an 
object module. 


E ~ cancels compiler job if object 
module has serious errors or no 
object modute is output. 


Indicates program name and file name of 
specified source program moduie in source 
code library. 


NOTE: Source code library on tape is 
available for use with TOS and 


DOS; source code !ibrary on 
disc is available only with DOS. 


K ~— inhibits error flags for sequence errors. 

S -— inhibits memory map listing 

N — inhibits all listable output (this option 
takes precedence over the other LST 


options). 


M — inhibits source listing and diagnostics. 


N — inhibits writing of primary output. 


T — produces an object file (OBJFIL) output 
tape (available with DOS only). 


mm specifies level number; nn specifies 
update number, Both mm and nn are expressed 
as decimal numbers, 


m When specifying the PARAM control statement, at least one space must appear between the 
last stash and the operation field, and also between the operation and operand fields, For 
additional information concerning the PARAM control statement, see UNIVAC 9400 System 
Job Contro! Programmers Reference, UP-7793 (current version). 


@ Information contained within braces represents necessary entries of which one must be chosen. 


m Under DOS, output will be produced in the module complex library (MCL). If OUT=T is specified, 
the compiler will then produce, in addition, an output to an OBJFIL tape. (MCL is the disc 
equivalentof OBJFIL.) For additional information concerning MCL and OBJFIL, see UNIVAC 
9400 System Disc Librarian Programmers Reference, UP-7745 (current version) and UNIVAC 9400 
System Tape Librarian Programmers Reference, UP-7667 (current version), respectively. 


® X= currently available. 


Table E-I. 


PARAM Job Control Statements for RPG 
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If a combination tape/disc supervisor is constructed, the tape RPG control state- 
ments may be used while accessing RPG modules from the disc resident supervisor. 
Use of tape RPG permits the use of a disc and three tapes for compiling RPG 
programs. If a fourth tape is available, access of source code on tape is per- 


The RPG control card provides the compiler with essential information not included 
in the RPG specification statements. Each source deck must be preceded by only 


one control card. The contents and format of the control card are as follows: 


COLUMNS CONTENTS DESCRIPTION 


Any EBCDIC characters 
including blanks 


Any other EBCDIC 
character including 
blanks 


D or other nonblank 
character 


Any EBCDIC characters 
including blanks 


0 or Blank 


1 
2 


0 or Blank 








Insignificant (page and line number can appear here). 


Identifies this as a control (header) card. 


Compilation takes place in UNIVAC 9300 mode (see 
Appendix B). 


Compilation takes place in IBM 360/20 mode (see 
Appendix B). 


Compilation takes place in UNIVAC 9400 mode (see 
appendix B). 
Generates halt indicator processing code 


Insignificant. 


Sterling shillings field on input is in Hollerith format. 
Sterling shillings field on input is in BSI format. 
Input has no sterling currency fields. 

Sterling pence field on input is in Hollerith format. 
Sterling pence field on input is in BSI format. 


Input has no sterling currency fields, 


Sterling shillings field on output is in Hoilerith format. 


Sterling shillings field on output is in BSI format. 


No output sterling currency fields, or fields in printer 
format. 


Sterling pence field on output is in Hollerith format. 
Sterling pence field on output is in BSI format. 


No output sterling currency fields, or fields in printer 
format. 





} 
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DESCRIPTION 


Inverted print option: numeric literals and edit words 
use the European conventions of punctuation (comma 
for decimal point and vice versa), 


COLUMNS CONTENTS 
21 | 









Blank No inverted print option. 





Any EBCDIC characters 
including blanks 


Insignificant. 





A An external subroutine is used to translate the se- 
quence of a matching field to the internal collating 
sequence of the UNIVAC 9400. The name of the 


external subroutine must be ALTSEQ. 


Blank or 4 





Standard collating sequence is assumed for matching 
fields. (A 4 provides compatibility with the UNIVAC 
9200/9300 RPG contro! card.) 





Any EBCDIC characters 
including blanks 


Insignificant. 


Ss The RPG object program is to be executed as a 


Subroutine only. 





The RPG object program is to be executed as a 
main program only. 













Program identification. If column 75 is blank, the 
program name is assumed to be RPGOBJ. The pro- 
gram name is included in the object module output. 


“I 
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An example of a control card is shown in Figure E-2. 

















00101H 1122 A 


T © 8 1011 12 13 14 15 18 17 18 19 20.21 22 23 26 25 28 27 2B 29 3 31 32 33 14 5 26 37 WW 38 WO 45 42 43 44 45 46 47 48 49 50 SI 52 53 54 55 56 57 56 59 60 81 62 63 64 OS OG G7 68 69 70 71 72 


Vitis EORERED (RERROREEE ERE CRRRRRERUOEEREREEREEEEEERROROEEE. 
2/222222222222QB2222222222222222222222222222222222222222222222222222 


—_ 


3333333333333333333333333333333333333333333333333333333333333333333 
NEA ddA ddd dda d dada Ada a Aaa aaa add aa dag aad a aga aaa dd adagdadggadaas 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSHSSHSHSSSSSSSSHSHS555555555555555555 
BIBEGEEEGEEEE6CEGE6GEGEGCEGEGEGCEGEECECEGEEGEBEGE6GEGCEEEGBECEBEEEEEE 
WITT T TTT TTT TTT TTT TTT TTT daa 
Pesscscossseeeessessssssssse SSB SSBRRSBORRS ASS HHSE SSB SHSS BSR EB BEES 
9999999999999999999999999999999999 


39-40 41 42 43 44 45 46 47 48 46 50 51 52 53 54 55 56 57 58 50 00.61 62 63 64 65 66 67 68 80 7071 72 


91999999999999999999999 


GIT 8 G 10 41 12 13 14 45 16 17 18 19 20 21 22 23 24 25 BZ 


Reo 
Be 
Seco 

wo 
Rw 
neo 
go 
aw 
Beco 
seo 
so 








COLUMNS CONTENTS DESCRIPTION 

1-5 00101 Page and line number 

6 H Header card 

7 Blank: UNIVAC 9400 mode 
8-16 Blank -- 
17 1 Hollerith sterling input 
18 1 ; Hollerith pence input 
19 2 BSI sterling output 
20 2 BS! pence output 
21 Blank No inverted print option 
22-25 Blank -- 
26 A Alternate sequence 
27-73 Blank -- 
74 S Subroutine object program 
75-80 Program name 


Figure E-2. Example of RPG Control Card 


010000000000000000000000000000000000000000000000000000000000000000000 


afj222222 
3333333ff 
44444444 
55555555 
66666 $6 
a Lee 
88efess 
ee 


3 76 75 7077 78 78 88 





7S 36 77 7079 08 
ae Wine 


Se 
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~ ES. HALT INDICATOR PROCESSING 


Normally, when any halt indicator (HO through H9) is set, the RPG program is can- 
celled. At the user’s option, this processing can be altered to do any of the following: 


m End job step without cancelling (EOJ) 


mw Turn off the halt indicator and resume processing (but this does not remove the 
cause of the halt; and if HO was set, further processing will probably be erratic). 


m Print a halt analysis describing the reason for the hait, the current settings of all 
a. ; indicators, and the current contents of all data fields, then cancel the program. 


gw Print a system dump, then cancel the program. 


m Print a console message permitting the operator to select the desired processing 


option, 


Halt processing occurs after header or detail output time in the RPG processing cycle. 
Therefore, at compile time, a D or other nonblank character should be placed in column 
8 of the RPG header (H) card. If, however, it is necessary to do this processing during 
calculation time, column 8 of the H card should be blank, and the calculations should 

include the following operation: 


DECIMAI 
POSITIO 







FACTOR 
2 





OPERATION 














P 9, $,D, M, Uh ttt 












my ies Goes Gaew Et Ente) Pe eee) Es | 





All other operating instructions still apply, except that control is returned to the 
operation following the EXIT. 


Note that column 8 of the H card is ignored if the RPG object module is a subroutine 


(see Appendix G). 


E5.1. SET COMREG Statement 


The SET COMREG statement is used to control processing of an RPG program when 
a halt indicator is set. At execution time, the SET COMREG statement is placed in 
the job control stream (see Figure E—1) before the EXEC statement. The first ten 
bytes of the communication region in the job preamble are associated with the ten 
halt indicators, HO through H9. Each of these communication bytes should be set to 
indicate the processing option to be followed when the corresponding halt indicator 
is set. 
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The format of the SET COMREG statement for RPG is: 
// SET COMREG,C’character-string’ eee A 
POSITIONAL PARAMETER 1 


COMREG — indicates that positional parameter 2 is to be stored in the 
communications region of the job preamble. 


POSITIONAL PARAMETER 2 


C'character-string' — may be one or more of the following characters: 


C or blank — normal processing (cancel job) 

— end job step (EOJ) 

— turn off indicator and resume processing 
— print halt analysis and cancel job 

print system dump and cancel job 


azuo " B 
I 


— print console message 


Additional Information: 


When the D option is specified, a DVC and LFD statement for a print file with the 
name PRNTR must be present in the job control deck. 


If the M option is specified, the following message is printed on the console when 
the halt indicator is processed: 


PGOS HALT IND SET REPLY C,D,E,I Hny Hn)... Ag 


Also, where Hny, Hno,... are the halt indicators currently set, the reply to this 
message is: 


nnR character-stringEOM 


where nn is the job number; C,D,E, and I are the options described above for 
character-string; and EOM is the end-of-message character. The D option is usable 
only if a print file (PRNTR) has been defined in the job control stream. If any option 
other than M is specified, the following message is printed on the console when 

the halt indicator is processed: 


PG05 HALT IND Hny Hno «. 


Regardless of the option character specified, table output (if any), is done and all 
files are closed before the program is terminated. For the user to suppress table 
output and file closing, he must specify the M character, then cancel or dump the 
job using the standard CANCEL or DUMP command when the console message 
appears. 
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1. This statement would print a halt analysis and resume printing if HO were set, 
cancel the job if Hl were set, and ignore H2, 


2. This statement would print a console message (PGO05) if HO were set, cancel the 
job if H1 were set, and ignore H2. 


E6, VARIABLE-LENGTH RECORDS 


When specifying block length and record length, the block length must be equal to or 
greater than the largest record length specified. The record length entry must be the 
largest possible record that can be contained in any block. RPG constructs a block 
length and record length larger than the lengths specified by generating a four-byte 
block length field before each block constructed and a fourebyte record length before 
each record within a block. 


Ne If the variable-length records are input to another RPG program, these length fields 
can be ignored by the user. The block length and record length will be the same as 
those in the output program. 


If the variable-length records are input to a program other than RPG, the block length 
and record length fields must be taken into consideration. The calculation to determine 
the largest block generated by RPG is as follows: 


(4 x block length) 


fecord length + block length +24 


E7. PRINTING LINE COUNTER TAPE/DISC FILES 


The utility program UTRPG is available for printing tape and disc report files stored 
by use of the line counter feature of RPG (see Section 7). A maximum of eight tape 
and/or disc files (one report to each file) may be printed in one run. The files are 
printed in their entirety, one file at a time. All output is directed to a single printer. 


B Input requirements 


Tape files must have standard labels. Filenames on LFD statements for tape files 
are TREPT1 through TREPTS8; for disc files, filenames on LFD statements for 
disc files are DREPT1 through DREPTS8. 


= Output requirements 


An LFD statement with the name PRNTR is required for a print file. 
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@ Sample control stream = 
LABEL t Seen Te OPERAND + COMMENTS 
peda bee tr te te a a 
LAD PRNTR, | oo pei Pe ee ee hi Pee AE 
iY AH, 29,9) 7, 44h 8, G! Pala ado N ues 2) ie 1 oe bi ea aaa ar aL. 
VO pL, 0,0,010,03 4 77, hb Bib, AC tiapbety- tym fo), 77, FD, TREP TZ 
VOjL, ,0,0,00,0,3, , 1/,/, ,b, y(t ajb,e,t.-, ijn fo), 1/7, 6, FD, DREPT 
VOL 000003 (// LBL ( tobel-inmfo) ,// LAD DREP T2 
ViOjL, ,0,0,0)0,0,3, , 77, LB, Charbel y-ijnfjo), (4/7, UFR BO REPT3 
ped be a a a a 
rH fest Ve le Crna We vd PS Ver Wy Ve YY WY Ow YE A SB cm Oa 
With this control stream, five reports are printed: first the tape file TREPT1 on 
device 6, then a second tape file TREPT2 on device 7, then three disc files, 
DREPT1, DREPT2, and DREPT3, on the same disc pack 000003. The various 
files do not have to be defined in any particular order. Regardless of the specified 
order, all tape files are printed before all disc files, and both tape and disc files 
are printed in ascending numerical order. 
E8. TABLE ENTRY AT EXECUTION TIME 
Table and data cards entered through the card reader must be placed in a specific 
order because their images are double buffered. When table and data files are opened o 
(initialized), they are opened in the order in which the File Description cards are ae 


entered; as each file is opened, the first card of that file is read into main storage. 
Thus,double buffering is used during actual execution to provide a standby image. 


The following two examples show the specific order in which table and data cards 
are to be entered. In the first example, each table is entered as a separate file. 

In the second, all three tables are entered as one file. Each example enters one data 
file. Note that cards are placed directly in the reader for DOS and following the /$ 
statement for TOS, 


gw Example 1: 




















PROGRAM PROGRAMMER 
RA TYPE FILE ORGANIZATION 
Tee EPR E AON ENG EXTENSION 
4 
zz} | |82 
uk 
LINE FILE RECORD =o ns ae LOGICAL 
NO. NAME CENeTH <i us UNIT 
eu az NUMBER 
3 29 30) 33 34 46| 47 
Eales Geack i Hh ianllaztes i [EREA DER, | 
aC ewe Jt ul Jot 4 READER, Jj ft | 
= E A = 
Cee Halt itch int DE, 
Poa LAA READER |, 
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FORM CHAINING 
TYPE FIELD NUMBER 
28 ml gl ol2 
3 4 FROM TO TABLE xfulS TABLE 
Lo FILE NAME FILE NAME NAME 213/92] ame 
uw aQi2zju 
: 16|7_8 Wat 26 | 27 43] 44] 45) 46 
ran E th BEX a oe ee KX vu Tiaras 
0,2 HEL yf T BLY, ie (ae fae be hes eee as YY, a cea toe é ay A Eee ces antes (9 
0,3, IE LIT Be Ze tb HS a PH TS? Al jet py 
Three separate table files named TBLX, TBLY, and TBLZ and data file AA are 
described on the file description form. TBLX, TBLY, and TBLZ are defined on 
the File Extension Specifications form as Table XX, Table YY, and Table ZZ, 
respectively. Arrangement of these table and data cards for entry into the reader 
at execution time is: 
First card of Table XX 
First card of Table YY Bead Se : 
Initialize files 
First card of Table ZZ 
First card of data file AA 
Remaining cards of Table XX 
/* (card indicates end of file) 
Remaining cards of Table YY 
/* 
Remaining cards of Table ZZ 
/* 
Remaining cards of data file AA 
/* 
a Example 2: 
PROGRAM PROGRAMMER _. — —= 
FILE ORGANIZATION 
Tyee FILE Type een yea EXTENSION LABE 




















a a 

t oo 

w z - LOGICAL 
RECORD rT eu DEVICE UNIT 
LENGTH < ws 

C4 3 z NUMBER 

293 33 34 





E READER 


R,E,AD.ER, 











































LE, AME, bit 
CHAINING 
FIELD NUMBER 
9° 
tg 
FROM To w TABLE 
FILE NAME FILE NAME 312 NAME 
—1shie 4a} ash 46 
A 
jet Gs es OR Dt ce el Pe sd fas 
1.40; 2) TE LIT BES pb JAL 
0,3, JE TEES beta pa 1 is pet 
? 
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Table file TBLS and data file AA are described on the File Description form. 
TBLS contains three tables: Table XX, Table YY, and Table ZZ. Each table 

is defined on the File Extension Specifications form. Arrangement of these table 
and data cards is as follows: 


First card of Table XX 
} Initialize files 


First card of data file AA 
Remaining cards of Table XX 
All cards of Table YY 
All cards of Table ZZ 

/* 
Remaining cards of data file AA 

/* 

E9. RPG CONSOLE MESSAGES 


The following messages may be printed at the console during the running of the RPG 
program: 


PGOl FATAL 10 ERROR 


Error in work or output file. RPG compiler aborted. 


PGO2 PRNTR FILE NOT FOUND 


No LFD statement in the control stream defining the PRNTR file (see E3), RPG 
compiler aborted. 


PGO3 COMPILER FILES CANNOT BE OPENED 


Error detected while opening work files or byte count error in source library. RPG 
aborted. 


PG04 CANNOT LOCATE SOURCE PROGRAM 


Source library not found on specified tape or disc file. RPG compiler aborted. 


PGO5 HALT IND SET 


Specified halt indicator(s) set in user program; resulting action depends on halt 
indicator processing action taken by programmer (see E4). 
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APPENDIX F. RPG PROGRAM 


DIAGNOSTICS LISTING 


ERROR MESSAGES 


The following RPG error messages are listedin order by code number. 


NOTE 000 


NOTE 001 


NOTE 002 


NOTE 003 


NOTE 004 
NOTE 005 


NOTE 006 


NOTE 007 


NOTE 008 


NOTE 009 


NOTE 010 


NOTE 011 


NOTE 012 


NOTE 013 


NOTE 014 


NOTE 015 


NOTE 016 


NOTE 017 


NOTE 018 


NOTE 019 


NOTE 020 


NOTE 021 


END OF FILE HAS BEEN ENCOUNTERED IN INPUT STREAM PRIOR 
TO AN OUTPUT SPECIFICATION. EXECUTION IS DELETED. 
STERLING INPUT SPECIFICATION (COLUMNS 17-18) IS INVALID. 
HOLLERITH IS ASSUMED. 

STERLING OUTPUT SPECIFICATION (COLUMNS 19-20) IS 
INVALID. HOLLERITH IS ASSUMED. 

INVERTED PRINT ENTRY (COLUMN 21) IS INVALID. ENTRY OF I 
IS ASSUMED. 

RPG CONTROL CARD IS MISSING. COMPILATION IS BYPASSED. 
MAIN OR SUBROUTINE CHARACTER (COLUMN 74) IS INVALID. 
MAIN IS ASSUMED. 

FILE TYPE (COLUMN 15) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 

INVALID ENTRY IN COLUMNS 28, 31, OR 32. SPECIFICATION IS 
NOT PROCESSED. 

RECORD ADDRESS FIELD (COLUMNS 29-30) HAS INVALID LENGTH, 
IS MISSING, OR IS NOT RIGHT-JUSTIFIED. ENTRY OF 08 IS AS - 
SUMED FOR RAF FILE. ENTRY OF 10 IS ASSUMED FOR TAG FILE. 
MORE THAN ONE RECORD ADDRESS FILE IS PRESENT. 
SUCCEEDING ONES ARE NOT PROCESSED. 

EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF BLANK 
IS ASSUMED. 

INPUT FILE DESIGNATION (COLUMN 16) ISINVALID OR MISSING. 
ENTRY OF RIS ASSUMED FOR TAG FILE. OTHERWISE SIS 
ASSUMED. 

OVERFLOW INDICATOR (COLUMN 33) ISNOT O. ENTRY OF O 

IS ASSUMED. 

OVERFLOW INDICATOR (COLUMNS 33-34) 1S INVALID. 
SPECIFICATION IS NOT PROCESSED. 

MORE THAN ONE PRIMARY FILE IS SPECIFIED. FILE IS ASSUMED 
TO BE A SECONDARY FILE. 

MODE OF PROCESSING (COLUMN 28) ISINVALID. ENTRY OF R 

IS ASSUMED. 

FIXED FORMAT IS SPECIFIED, BUTBLOCK LENGTH ISNOT A 
MULTIPLE OF RECORD LENGTH. BLOCK LENGTH IS INCREASED 
TO NEXT HIGHEST MULTIPLE. 

TYPE OF FILE ORGANIZATION (COLUMN 32) IS NOT BLANK. 
ENTRY OF BLANK IS ASSUMED. 

END-OF-FILE CODE (COLUMN 17) IS INVALID. ENTRY OF BLANK 
IS ASSUMED. 

SEQUENCE (COLUMN 18) ISINVALID. ENTRY OF BLANK IS 
ASSUMED. 

MODE OF PROCESSING (COLUMN 28) IS NOT BLANK. ENTRY OF 
BLANK IS ASSUMED. 

RECORD ADDRESS TYPE (COLUMN 31) IS NOT BLANK. ENTRY OF 
BLANK IS ASSUMED. 






NOTE 022 


NOTE 023 


NOTE 024 


NOTE 025 


NOTE 026 


NOTE 027 


NOTE 028 


NOTE 029 


NOTE 030 


NOTE 031 


NOTE 032 


NOTE 033 


NOTE 034 


NOTE 035 


NOTE 036 


NOTE 037 


NOTE 038 
NOTE 039 
NOTE 040 
NOTE 041 
NOTE 042 
NOTE 043 
NOTE 044 


NOTE 045 


NOTE 046 
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EXTENSION CODE (COLUMN 39) ISINVALID. ENTRY OF EIS 
ASSUMED. 

WARNING — FORMAT (COLUMN 19) IS NOT F OR V. ENTRY OF F IS 
ASSUMED FOR INDEX SEQUENTIAL. OTHERWISE ENTRY OF VIS 
ASSUMED. 

BLOCK LENGTH (COLUMNS 20-23) IS MISSING, INVALID, LESS THAN 
THE RECORD LENGTH, OR NOT RIGHT-JUSTIFIED. BLOCK LENGTH 
IS ASSUMED EQUAL TO RECORD LENGTH. 

RECORD LENGTH (COLUMNS 24-27) IS MISSING, INVALID, OR NOT 
RIGHT-JUSTIFIED. RECORD LENGTH OF 0080 IS ASSUMED. 
FILENAME (COLUMNS 7-14) IS MISSING, INVALID, OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 

OUTPUT FILE DESIGNATION (COLUMN 16) IS NOT BLANK. ENTRY 
OF BLANK IS ASSUMED. 

PROGRAM EXCEEDS LIMIT OF TEN VALID FILE NAMES. ADDI - 
TIONAL FILE DESCRIPTION SPECIFICATIONS ARE NOT PROCESSED. 
KEY FIELD STARTING LOCATION (COLUMNS 35-38) IS INVALID, 
NOT RIGHT-JUSTIFIED, OR NOT LESS THAN RECORD LENGTH. 
ENTRY OF 0001 IS ASSUMED. 

DEVICE (COLUMNS 40-46) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 

‘LABELS’ (COLUMN 53) IS INVALID. ENTRY OF SIS ASSUMED FOR 
TAPE AND DISC FILES. ENTRY OF BLANK IS ASSUMED FOR CARD 
AND PRINTER FILES. 

NAME OF LABEL EXIT (COLUMNS 54-59) IS MISSING, INVALID, OR 
NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 

NAME OF LABEL EXIT (COLUMNS 54-59) MUST BE BLANK FOR 
DEVICES OTHER THAN TAPE OR DISC. ENTRY OF BLANKS IS 
ASSUMED. 

OVERFLOW INDICATOR (COLUMNS 33-34) IS APPLICABLE TO OUT- 
PUT FILES ONLY. ENTRY OF BLANKS IS ASSUMED. 

FILE ADDITION ENTRY FOR INDEX SEQUENTIAL. (COLUMN 66) 

IS INVALID. ENTRY OF AIS ASSUMED. 

KEY LENGTH (COLUMNS 29-30) IS INVALID OR MISSING. SPECIFICA- 
TION IS NOT PROCESSED, 

‘NUMBER OF TRACKS FOR CYLINDER OVERFLOW’ ENTRY FOR 
INDEX SEQUENTIAL (COLUMN 67) IS INVALID. ENTRY OF ZERO IS 
ASSUMED. 

INVALID REWIND OPTION FOR A TAPE FILE. ENTRY OF UIS 
ASSUMED. 

FORM TYPE (COLUMN 6) IS INVALID OR OUT OF SEQUENCE. 
SPECIFICATION IS NOT PROCESSED. 

FILE DESCRIPTION SPECIFICATIONS ARE MISSING. EXECUTION IS 
DELETED. 

WARNING — PRIMARY FILE IS NOT SPECIFIED. 

WARNING — FILE EXTENSION SPECIFICATION IS MISSING. 
FILENAME (COLUMNS 7-14) IS MULTI-DEFINED. SPECIFICATION 

IS NOT PROCESSED. 

WARNING — LENGTH OF RAF FIELD (COLUMNS 29-30) MUST BE 10. 
ENTRY OF 10 IS ASSUMED. 

DIRECT FILE CANNOT BE SPECIFIED. SPECIFICATION IS NOT 
PROCESSED. 

KEY FIELD LOCATION IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 
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NOTE 047 
NOTE 048 


NOTE 049 


NOTE 050 


NOTE 051 


NOTE 052 


NOTE 053 


NOTE 054 


NOTE 055 


NOTE 056 


NOTE 057 


NOTE 058 


NOTE 9059 


NOTE 060 


NOTE 061 


NOTE 062 


NOTE 063 


NOTE 064 


NOTE 065 


NOTE 066 


NOTE 067 


NOTE 068 
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COLUMNS 66-67 MUST BE BLANK. ENTRY OF BLANKS IS ASSUMED. 
RECORD LENGTH (COLUMNS 24-27) IS INVALID. ENTRY OF 132 

IS ASSUMED. 

MORE THAN ONE RECORD ADDRESS FILE IS SPECIFIED ON FILE 
EXTENSION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 
‘FROM FILENAME’ (COLUMNS 11-18) IS NOT SPECIFIED AS ON 
FILE DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 

EXTENSION CODE (COLUMN 39) OF FILE DESCRIPTION SPECIFI- 
CATION IS NOT E. SPECIFICATION IS NOT PROCESSED. 

LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) EXCEEDS 
256 CHARACTERS FORAN ALPHANUMERIC FIELD. ENTRY OF 256 
IS ASSUMED. 

CHAINING FIELD (COLUMNS 9-10) IS MISSING, INVALID, OR NOT 
RIGHT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 

NUMBER OF FIELD NAMES EXCEEDS ALLOCATED MEMORY 
STORAGE. ADDITIONAL SPECIFICATIONS CONTAINING TABLE 
NAMES WILL NOT BE PROCESSED. 

‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS ON FILE 
DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 
‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS A CHAINED 
FILE ON FILE DESCRIPTION SPECIFICATION. SPECIFICATION IS 
NOT PROCESSED. 

LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) EXCEEDS 
15 DIGITS FOR A NUMERIC FIELD. ENTRY OF 15 IS ASSUMED. 

‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS A PRIMARY 
OR SECONDARY FILE ON FILE DESCRIPTION SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

TABLE SEQUENCE (COLUMNS 45 OR 57) IS INVALID. ENTRY OF 
BLANK IS ASSUMED. 

TABLE NAME (COLUMNS 27-32 OR 46-51) IS MUL TI-DEFINED. 
SPECIFICATION IS NOT PROCESSED. 

‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS ON FILE 
DESCRIP TION SPECIFICATION. ENTRY OF BLANKS 1S ASSUMED. 
‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS AN OUTPUT 
FILE ON FILE DESCRIPTION SPECIFICATION. ENTRY OF BLANKS 
IS ASSUMED. 

TABLE NAME (COLUMNS 27-32 OR 46-51) IS MISSING, INVALID, OR 
NOT LEFT-JUSTIFIED. SPECIFICATION 1S NOT PROCESSED. 

FIRST THREE CHARACTERS OF TABLE NAME (COLUMNS 27-29 OR 
46-48) ARE NOT ‘TAB’. ENTRY OF ‘TAB’ IS ASSUMED. 

NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 33-35) IS 
MISSING, INVALID, OR NOT RIGHT-JUSTIFIED. ENTRY OF 008 IS 
ASSUMED. 

NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 36-39) IS 
MISSING, INVALID, OR NOT RIGHT-JUSTIFIED. ENTRY OF 0150 IS 
ASSUMED. 

‘LENGTH OF TABLE’ ENTRY (COLUMNS 40-42 OR 52-54) IS MISSING, 
INVALID, OR NOT RIGHT-JUSTIFIED. ENTRY OF 010 IS ASSUMED. 
‘PACKED’ (COLUMN 43 OR 55) ISINVALID. ENTRY OF BLANK IS 
ASSUMED. 





NOTE 069 


NOTE 070 


NOTE 071 


NOTE 072 


NOTE 073 


NOTE 074 


NOTE 075 


NOTE 076 


NOTE 077 


NOTE 078 


NOTE 079 


NOTE 080 


NOTE 081 


NOTE 082 


NOTE 083 


NOTE 084 


NOTE 085 


NOTE 086 


NOTE 087 


NOTE 088 


NOTE 089 


NOTE 090 
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‘DECIMAL POSITIONS’ (COLUMN 44 OR 56) IS INVALID. ENTRY OF 
ZERO IS ASSUMED. 


ee 
RECORD SEQUENCE OF THE CHAINING FILE (COLUMNS 7-8) IS 
INVALID. BOTH POSITIONS MUST BE EITHER NUMERIC OR ALPHA- 
BETIC. SPECIFICATION IS NOT PROCESSED. 
FILENAME (COLUMNS 7-16) IS NOT SPECIFIED AS ON FILE DESCRIP- 
TION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 
OVERFLOW OR HOME PAPER CHANNEL IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 
FILENAME IS NOT SPECIFIED AS AN OUTPUT FILE OR AN OUTPUT 
FILE REQUIRING A LINE COUNTER SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 
LINE NUMBER OR CHANNEL NUMBER IS INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 
CHANNEL NUMBERIS MULTI-DEFINED. SPECIFICATION IS NOT 
PROCESSED. 
LINE COUNTER FILE NAME (COLUMNS 7-14) IS MISSING, INVALID, 
OR NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 
‘FROM FILE NAME’ (COLUMNS 11-18) IS MISSING. SPECIFICATION 
IS NOT PROCESSED. 
‘FROM FILE NAME’ (COLUMNS 11-18) IS INVALID OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 
‘TO FILE NAME’ (COLUMNS 19-26) IS INVALID OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 
THERE ARE NO VALID INPUT SPECIFICATIONS IN THIS PROGRAM. 
EXECUTION IS DELETED. 
FIELD INDICATOR IS SPECIFIED BUT IS NOT VALID. INDICATOR 

ed 


IS NOT PROCESSED. 
INDICATOR LO IS SPECIFIED AS A FIELD INDICATOR, BUT IS NOT 
ALLOWED. INDICATOR IS IGNORED. 

FIELD-RECORD RELATION (COLUMNS 63-64) IS INVALID. ENTRY OF 
00 IS ASSUMED. 

‘POSITION’ (COLUMNS 21-24, 28-31, OR 35-38), ‘START’ (COLUMNS 
44-47), ‘END’ (COLUMNS 48-51), OR ‘STERLING SIGN POSITION’ 
(COLUMNS 71-74) IS ZERO. ENTRY OF 11S ASSUMED. 

IF HOLLERITH SHILLING IS SPECIFIED, STERLING INPUT FIELD 
MUST HAVE MORE THAN THREE NON-DECIMAL POSITIONS. IF BSI 
SHILLING IS SPECIFIED, STERLING INPUT FIELD MUST HAVE MORE 
THAN TWO NON-DECIMAL POSITIONS. VALUE OF FIELD IS ASSUMED 
TO BE ZERO. 

WARNING — INDICATOR 00 SHOULD BE USED ONLY IN OUTPUT 

SP ECIFICATIONS. 
COLUMNS 7-42 OF FIELD DESCRIPTION SPECIFICATION SHOULD 
CONTAIN BLANKS. ENTRY OF BLANKS IS ASSUMED. 

FORM TYPE (COLUMN 6) IS NOT I, C, 0, OR T, AND COLUMN 7 IS 
NOT AN ASTERISK. SPECIFICATION IS NOT PROCESSED. 
UNDEFINED FILENAME (COLUMNS 7-14). SPECIFICATION IS NOT 
PROCESSED. 

FILENAME (COLUMNS 7-14) HAS BEEN DEFINED AS A TABLE, RAF, 
TAG, OR OUTPUT FILE. SPECIFICATION IS NOT PROCESSED. 
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NOTE 091 


NOTE 092 


NOTE 093 


NOTE 094 


NOTE 095 


NOTE 096 


NOTE 097 


NOTE 098 


NOTE 099 


NOTE 100 


NOTE 101 


NOTE 102 


NOTE 103 


NOTE 104 


NOTE 105 


NOTE 106 


NOTE 107 


NOTE 108 


NOTE 109 


NOTE 110 


NOTE i111 


NOTE 112 
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‘AND’ SPECIFICATION (COLUMNS 14-16) IS OUT OF SEQUENCE — LE., 
FIRST INPUT SPECIFICATION OR FOLLOWS FIELD NAME OR 
FOLLOWS INVALID ‘OR’, ‘AND’, OR FILE NAME. SPECIFICATION IS 
NOT PROCESSED. 

NO RECORD IDENTIFICATION CODES (COLUMNS 21-41) IN THE 
CARD BEFORE AN ‘AND’ CARD. SPECIFICATION IS NOT PROCESSED. 
‘OR’ SPECIFICATION (COLUMNS 14-15) IS OUT OF SEQUENCE —-L.E., 
FIRST INPUT SPECIFICATION OR FOLLOWS FIELD NAME OR FOL- 
LOWS INVALID ‘OR’, ‘AND’, OR FILE NAME, SPECIFICATION !S NOT 
PROCESSED. 

RECORD IDENTIFICATION FOLLOWS AN INVALID FILE TYPE 
SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

FILE AND FIELD NAMES ARE BOTH PRESENT ON THE SAME 
SPECIFICATION. FILENAME IS ASSUMED. 

SEQUENCE (COLUMNS 15-16) IS BLANK. ENTRY OF AA IS ASSUMED. 
ALPHABETIC SEQUENCE FOUND AFTER NUMERIC SEQUENCE, 
NUMERIC SEQUENCE EQUAL TO PREVIOUS NUMERIC SEQUENCE IS 
ASSUMED. 

NUMERIC SEQUENCE NOT CONSECUTIVE IN FILE BEGINNING WITH 
01. EXECUTION ISDELETED. 

NUMBER (COLUMN 17) IS NOT N OR 1 FOR A NUMERIC SEQUENCE. 
ENTRY OF N IS ASSUMED. 

OPTION (COLUMN 18) IS NOT 0 OR BLANK. ENTRY OF 0 IS 
ASSUMED. 

RESULTING INDICATOR (COLUMNS 19-20) IS BLANK OR INVALID. 
INDICATOR OF 99 IS ASSUMED. 

WARNING — INVALID OR UNSUPPORTED STACKER SELECT ENTRY 
(COLUMN 42). ENTRY OF BLANK IS ASSUMED. 

‘NOT’ (COLUMNS 25, 32, OR 39) IS NOT N OR BLANK. ENTRY OF NIS 
ASSUMED. 

‘C/Z/D’ (COLUMNS 26, 33, OR 40) IS NOT C, Z, OR D. ENTRY OF C 
IS ASSUMED. 

RECORD IDENTIFICATION IS OUT OF SEQUENCE — LE., FIRST 
INPUT SPECIFICATION OR FOLLOWING AN INVALID ‘OR’, ‘AND’, 
OR FILE NAME. SPECIFICATION IS NOT PROCESSED. 

‘START’ (COLUMNS 44-47) OR ‘END’ (COLUMNS 48-51) IS BLANK. 
ENTRY OF 11S ASSUMED. 

‘START’ (COLUMNS 44-47) IS GREATER THAN ‘END’ (COLUMNS 
48-51). ‘END’ IS ASSUMED TO HAVE A VALUE EQUAL TO ‘START’, 
DECIMAL POSITION (COLUMN 52) IS NOT NUMERIC. ENTRY OF 
ZERO IS ASSUMED. 

UNPACKED NUMERIC FIELD IS MORE THAN 15 BYTES LONG. 
LENGTH OF 15 IS ASSUMED. 

STERLING FIELD IS INDICATED WITH MORE THAN THREE DECIMAL 
POSITIONS. THE DECIMAL PORTION OF THE FIELD IS TRUNCATED 
TO THREE POSITIONS. THE ‘END’ POSITION OF THE FIELD IS 
ALTERED TO ALLOW THIS TRUNCATION. 

‘PACKED’ (COLUMN 43) IS NEITHER P NOR BLANK. ENTRY OF P 

IS ASSUMED. 

ALPHANUMERIC FIELD LENGTH IS MORE THAN 256 BYTES LONG. 


LENGTH OF 256 IS ASSUMED. 
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119 
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NUMERIC RESULTING INDICATOR (COLUMNS 65-66 OR 67-68) IS 

SPECIFIED FOR AN ALPHANUMERIC FIELD. INDICATOR IS SET OFF. YY 
IMPROPER ENTRY FOR STERLING SIGN POSITION (COLUMNS 71-74). 
‘END’ FIELD LOCATION ASSUMED. 

STERLING INPUT SPECIFIED (COLUMNS 71-74), BUT NOT INDICATED 
ON PROCESSOR CONTROL CARD. ENTRY OF BLANKS IS ASSUMED. 
CALCULATED LENGTH OF STERLING FIELD IS GREATER THAN 
15 BYTES, LENGTH OF 15 IS ASSUMED. 

‘AND’ TYPE OR ‘OR’ TYPE SPECIFICATION DOES NOT HAVE ALL 
BLANKS IN COLUMNS 43-74, ENTRY OF BLANKS IS ASSUMED. 

‘AND’ TYPE INPUT SPECIFICATION DOES NOT LEAVE BLANKS 

IN COLUMNS 17-20 AND 42, ENTRY OF BLANK IS ASSUMED. 
FILENAME HAS BEEN REFERENCED PREVIOUSLY IN INPUT 
SPECIFICATIONS. SPECIFICATION IS NOT PROCESSED. 

CONTROL LEVEL IS SPECIFIED BUT COLUMN 59 IS NOT L. 

ENTRY OF L IS ASSUMED. 

CONTROL LEVEL IS SPECIFIED BUT COLUMN 60 IS NOT 1-9. 
ENTRY OF 1 1S ASSUMED. 

MATCHING OR CHAINING FIELD IS SPECIFIED BUT COLUMN 62 IS 
NOT 1-9. ENTRY OF 11S ASSUMED. 

MATCHING ORCHAINING FIELD IS SPECIFIED BUT COLUMN 61 IS 
NOT M OR C. ENTRY OFM IS ASSUMED. 

‘PACKED’ (COLUMN 43) IS NOT BLANK, BUT AN ALPHANUMERIC 
OR STERLING IS SPECIFIED. ENTRY OF BLANK IS ASSUMED. 
SEQUENCE CHARACTERS (COLUMNS 15-16) ARE NOT BOTH 
ALPHABETIC OR BOTH NUMERIC. ENTRY OF AA IS ASSUMED, 
‘POSITION’ (COLUMNS 21-24, 28-31, OR 35-38) IS INVALID OR NOT 
RIGHT-JUSTIFIED. ENTRY OF 0001 IS ASSUMED. 

FILE NAME (COLUMNS 7-14) IS INVALID OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

‘START’ (COLUMNS 44-47) OR ‘END’ (COLUMNS 48-51) IS INVALID 
OR NOT RIGHT-JUSTIFIED. ENTRY OF 0001 IS ASSUMED. 

PACKED NUMERIC FIELD IS MORE THAN 8 BYTES LONG. 

LENGTH OF 8 IS ASSUMED. 

FIELD NAME (COLUMNS 53-58) IS INVALID OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

STERLING SIGN POSITION (COLUMNS 71-74) IS SPECIFIED FOR 
ALPHANUMERIC FIELD. STERLING SIGN POSITION ENTRY OF 
BLANKS IS ASSUMED. 

WARNING — FILENAME (COLUMNS 7-14) IS DEFINED BUT NEVER USED. 
UNDEFINED TABLE SPECIFIED IN LOKUP OPERATION. SPECIFI- 
CATION IS NOT PROCESSED. 

DECIMAL POSITION IS INVALID. ENTRY OF ZERO IS ASSUMED FOR 
NUMERIC FIELD. ENTRY OF BLANK IS ASSUMED FOR ALPHANU- 
MERIC FIELD. 

FIELD LENGTH ISIMPROPERLY SPECIFIEDOR IS NOT SPECIFIED, 
ENTRY OF ZERO IS ASSUMED FOR INVALID CHARACTER. WHEN 
REQUIRED LENGTH IS NOT SPECIFIED, ENTRY OF 4 IS ASSUMED. 
OPERATION CODE (COLUMNS 28-32) IS INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 

REQUIRED ENTRY IN FACTOR 1 (COLUMNS 18-27) IS MISSING OR 
INVALID. SPECIFICATION IS NOT PROCESSED. 
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REQUIRED ENTRY IN FACTOR 2 (COLUMNS 33-42) IS MISSING OR 
INVALID. SPECIFICATION IS NOT PROCESSED. 

REQUIRED ENTRY IN RESULT FIELD (COLUMNS 43-48) IS MISSING 
OR INVALID. SPECIFICATION ISNOT PROCESSED. 

FORM TYPE (COLUMN 6) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 

‘NOT’ (COLUMNS 9, 12, OR 15) IS NOT N OR BLANK. ENTRY OF 

N IS ASSUMED. 

CONTROL LEVEL IS IMPROPERLY SPECIFIED. ENTRY OF LO IS 
ASSUMED. 

RESULTING INDICATOR IS INVALID. INDICATOR IS NOT PROCESSED. 
‘HALF ADJUST’ ENTRY (COLUMN 53) IS INVALID. ENTRY OF HIS 
ASSUMED. 

FIELD NAME IS IMPROPERLY USED. SPECIFICATION IS NOT 
PROCESSED. 

INDICATOR (COLUMNS 10-11, 13-14, OR 16-17) IS INVALID. ENTRY 
OF 00 1S ASSUMED. 

REQUIRED RESULTING INDICATOR (COLUMNS 54-55, 56-57, OR 
58-59) IS NOT SPECIFIED. SPECIFICATION IS NOT PROCESSED. 
‘MVR’ DOES NOT FOLLOW ‘DIV’, OR FOLLOWS A ‘DIV’ WITH HALF 
ADJUST SPECIFIED. SPECIFICATION IS NOT PROCESSED. 
OPERATION CODE IS NOT SUPPORTED BY THIS VERSION OF RPG. 
DETAIL CALCULATION SPECIFICATION FOLLOWS A TOTAL CAL- 
CULATION SPECIFICATION. DETAIL SPECIFICATION IS NOT 
PROCESSED. 

RESULT FIELD LENGTH (COLUMNS 49-51) IS GREATER THAN 
ALLOWED. A LENGTH OF 256 IS ASSUMED FOR AN ALPHANUMERIC 
FIELD. A LENGTH OF 15 IS ASSUMED FOR A NUMERIC FIELD. 
OPERATION CODE OF TESTZ IS INVALID FOR THE 9300 MODE OF 
COMPUTATION. SPECIFICATION IS NOT PROCESSED. 

STERLING SPECIFIED IN COLUMNS 71-74, BUT NOT SPECIFIED ON 
PROCESSOR CONTROL CARD. ENTRY OF BLANKS IS ASSUMED. 
INAPPROPRIATE OUTPUT FIELD. SPECIFICATION IS NOT 
PROCESSED. 

FILENAME (COLUMNS 7-14) IS MISSING, OR RECORD TYPE (COLUMN 
15) IS IN WRONG ORDER. SPECIFICATION IS,NOT PROCESSED. 
CORRESPONDING FILENAME (COLUMNS 7-14) CANNOT BE DE- 
TERMINED. SPECIFICATION IS NOT PROCESSED. 

‘STACKER SELECT’ (COLUMN 16) ISINVALID. ENTRY OF BLANK 
IS ASSUMED. 

‘SPACE BEFORE’ (COLUMN 17) IS INVALID. ENTRY OF LIS 
ASSUMED. 

‘SPACE AFTER’ (COLUMN 18) ISINVALID. ENTRY OF 11S ASSUMED. 
‘SKIP BEFORE’ (COLUMNS 19-20) IS INVALID. ENTRY OF O1IS 
ASSUMED. 

‘SKIP AFTER’ (COLUMNS 21-22) IS INVALID. ENTRY OF OL1IS 
ASSUMED. 

RECORD TYPE (COLUMN 15) IS NOT H, D, OR T. SPECIFICATION 
IS NOT PROCESSED. 

COLUMNS 17-22 MUST BE BLANK FOR ‘AND’ TYPE SPECIFICATIONS. 
ENTRY OF BLANK IS ASSUMED, 
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COLUMNS 7-13 MUST BE BLANK FOR ‘AND’ OR ‘OR’ TYPE 
SPECIFICATIONS. ENTRY OF BLANK IS ASSUMED, 
CORRESPONDING RECORD SPECIFICATION IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 

‘ZERO SUPPRESS’ (COLUMN 38) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 

‘PACKED FIELD’ (COLUMN 44) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 

FIELD NAME (COLUMNS 32-37) IS NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

‘END POSITION’ (COLUMNS 40-43) IS INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 

LEADING OR CLOSING APOSTROPHE (’) INEDIT WORD IS NOT 
CORRECT. ENTRY OF BLANKS IN COLUMNS 45-70 IS ASSUMED. 
‘BLANK AFTER’ (COLUMN 39) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 

PUNCH ANDPRINT FUNCTIONS ARE SPECIFIED FOR THE SAME 
FILE. ENTRY OF BLANKS IS ASSUMED FOR COLUMNS 17-22, 
ZERO SUPPRESSION (COLUMN 38) MAY NOT BE SPECIFIED FOR 
CONSTANTS OR EDIT WORDS. ENTRY OF BLANK IN COLUMN 38 
IS ASSUMED. 

FIELD NAME (COLUMNS 32-37) IS UNDEFINED. SPECIFICATION IS 
NOT PROCESSED. 

WARNING—‘BLANK AFTER’ (COLUMN 39) IS SPECIFIED FOR 
CONSTANT. ALL IDENTICAL CONSTANTS WILL BE BLANKED. 
CONSTANT (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

EDIT WORD (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. ENTRY OF 
BLANKS IN COLUMNS 45-70 IS ASSUMED. 

‘PACKED FIELD’ (COLUMN 44) MAY NOT BE SPECIFIED WITH 
CONSTANT, EDIT WORD OR STERLING ENTRY. ENTRY OF BLANK 
IN COLUMN 44 IS ASSUMED. 

FILENAME (COLUMNS 7-14) IS NOT LEFT-JUSTIFIED. SPECIFICA- 
TION IS NOT PROCESSED. 

EDIT WORD (COLUMNS 45-70) CONTAINS NO DIGIT POSITIONS OR 
MORE THAN FIFTEEN (SIXTEEN FOR STERLING). ENTRY OF 
BLANKS IN COLUMNS 45-70 IS ASSUMED, 

LEADING OR CLOSING APOSTROPHE (’) IN CONSTANT IS NOT 
CORRECT. SPECIFICATION IS NOT PROCESSED. 

‘AND’ OR ‘OR’ FOLLOWING A FIELD NAME SPECIFICATION OR 
AS FIRST OUTPUT SPECIFICATION IS INVALID. SPECIFICATION 
IS NOT PROCESSED. 

STERLING ENTRY (COLUMNS 71-74) MAY NOT BE SPECIFIED WITH 
CONSTANT OR PAGE (N). ENTRY OF BLANK IN COLUMNS 71-74 IS 
ASSUMED. 

STERLING ENTRY (COLUMNS 71-74) IS INVALID. ENTRY OF BLANKS 
IS ASSUMED. 

OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS INVALID 
OR UNDEFINED. ENTRY OF LO IS ASSUMED. 

OUTPUT INDICATORS SHOULD START IN COLUMNS 23-25, THEN 
26-28, AND FINALLY 29-31. ENTRY IS SHIFTED LEFT. 

‘NOT’ (COLUMNS 23, 26, OR 29) IS NOT BLANK OR N. ENTRY OF 
N IS ASSUMED. 
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WARNING — OVERFLOW INDICATOR iS SPECIFIED IN ‘AND’ TYPE 
SPECIFICATION. RECORD WILL NOT BE PUT OUT AS OVERFLOW 
LINE. 

DECIMAL POSITIONS MUST BE ZERO FOR PAGE(N) FIELD. 

ENTRY OF ZERO IS ASSUMED. 

SPECIFICATION TYPE CANNOT BE DETERMINED. RECORD AND 
FIELD DEFINITIONS ARE SPECIFIED IN SAME LINE OR BOTH ARE 
BLANK. SPECIFICATION IS NOT PROCESSED. 

FORM TYPE (COLUMN 6) IS INVALID (NOT 0) SPECIFICATION IS 
NOT PROCESSED. 

NO OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS 
SPECIFIED FOR ‘AND’ OR ‘OR’ TYPE SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

HEXADECIMAL CONSTANT (COLUMNS 45-70) CONTAINS INVALID 
CHARACTER. SPECIFICATION IS NOT PROCESSED. 

LEADING OR CLOSING APOSTROPHE (’) IN HEXADECIMAL 
CONSTANT IS NOT CORRECT. SPECIFICATION IS NOT PROCESSED. 
WARNING: PAGE1 NOT SUPPORTED AS AN AUTOMATIC PAGE 
COUNTER IF IN 9200/9300 MODE OF PROCESSING. 

WARNING — PAGE2,...,PAGE7 ARE NOT SUPPORTED AS AUTOMATIC 
PAGE COUNTERS IN 9200/9300 AND MOD 20 MODE OF PROCESSING. 
DECIMAL POSITIONS MUST BE BLANK FOR DATE FIELD. ENTRY 
OF BLANK IS ASSUMED. 

FIELDNAME (COLUMNS 32-37) IS INVALID. SPECIFICATION IS NOT 
P ROCESSED. 

FILENAME (COLUMNS 7-14) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 

WARNING: TABLE FILE MUST BE SUBMITTED AT EXECUTION, 
RESULTING INDICATOR IS INVALID OR UNDEFINED. ENTRY OF LO 
IS ASSUMED. 

WARNING — RESULTING INDICATOR IS UNREFERENCED. 

FIELD NAME IS UNDEFINED, FIELD IS PROCESSED WITH ASSUMED 
LENGTH OF 004. 

WARNING — FIELD NAME IS MULTI-DEFINED. 

WARNING — FIELD NAME IS UNREFERENCED. 

THE COMBINED LENGTHS OF LITERALS AND FIELD NAMES 
EXCEEDS ALLOCATED MAIN STORAGE. 

WARNING — MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY 
FILES) iS SPECIFIED WITHOUT MATCHING FIELDS OF THE 
PRIMARY FILE. 

WARNING — MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY 
FILES) IS SPECIFIED WITHOUT MATCHING FIELDS FOR THE 
SECONDARY FILE(S). 

THE SUM OF THE LENGTHS OF THE MATCHING FIELDS FOR THE 
PRIMARY FILE DOES NOT EQUAL THAT OF EACH SECONDARY 
FILE. EXECUTION IS DELETED. 

THE SUM OF THE LENGTHS OF THE MATCHING FIELDS IS NOT 
CONSTANT IN EACH RECORD WHICH SPECIFIED MATCHING 
FIELDS FOR A FILE. EXECUTION IS DELETED. 

WARNING — THE SUM OF THE LENGTHS OF THE CONTROL FIELDS 
IS NOT CONSTANT IN EACH RECORD WHICH SPECIFIED CONTROL 
FIELDS. 
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AN EXCESSIVE AMOUNT OF OBJECT CODEHAS BEEN GENERATED ES 
FOR A SINGLE RECORD GROUP. EXECUTION IS DELETED. 

THIS SPECIFICATION CONTAINS AN ASTERISK CONDITION INDI- 
CATION AND FOLLOWS A SPECIFICATION THAT HAS BEEN DE- 
LETED. SPECIFICATION IS NOT PROCESSED. 

FIELDS USED IN AN ALPHANUMERIC COMPARE MUST BE EQUAL 
IN LENGTH OR MUST BE LESS THAN OR EQUAL TO 200 BYTES. 
SPECIFICATION IS NOT PROCESSED. 

FIELD LENGTHS ARE INVALID FOR THIS OPERATION. SPECIFICA- 
TION IS NOT PROCESSED. 

PLUS AND/OR MINUS RESULTING INDICATORS (COLUMNS 54-55 

OR 56-57) ARE NOT ALLOWED FOR TESTING ALPHANUMERIC 
FIELDS. INDICATORS ARE IGNORED. 

FIELD TYPE IS INVALIDFOR THIS OPERATION. SPECIFICATION 
1S NOT PROCESSED. 

ENTRY IN COLUMNS 16-18 VALID FOR INDEXED-SEQUENTIAL 

ADD ONLY. ENTRY IS IGNORED. 

REQUIRED ‘ADD’ ENTRY (COLUMNS 16-18) IS MISSING, ‘ADD’ 

1S ASSUMED. 

FILE SPECIFIED ON OUTPUT FORMAT SPECIFICATIONS IS UN- 
DEFINED OR NOT AN OUTPUT FILE (U,C, 0, OR INDEX SE- 
QUENTIAL INPUT WITH ADDED RECORDS). SPECIFICATION IS NOT 
PROCESSED. 

WARNING — FILENAME (COLUMNS 7-14) IS NOT REFERENCED ON 
OUTPUT SPECIFICATIONS. 

NO VALID OUTPUT SPECIFICATIONS ARE PRESENT. EXECUTION 
IS DELETED. 

ALL OUTPUT LINES OF A PRINTER FILE MUST INDICATE EITHER 
SPACING AND/OR SKIPPING. SINGLE SPACING IS ASSUMED FOR ALL 
OUTPUT LINES OF NAMED FILE WHICH HAVE NO PRINT FUNCTION. 
STACKER SELECT MAY NOT BE SPECIFIED WITH PRINT FILE. 
STACKER SELECT IS IGNORED AND SINGLE SPACING IS ASSUMED 
FOR ALL LINES OR NAMEDFILE, 

PRINT OR PUNCH FUNCTION MAY NOT BE SPECIFIED FOR AN 
OUTPUT RECORD OF TAPE OR DISC FILE. STACKER SELECT, 
SPACING, OR SKIPPING IS IGNORED ON ALL RECORDS OF 

NAMED FILE. 

PRINT FUNCTION MAY NOT BE SPECIFIED FOR OUTPUT RECORD 
OF PUNCH FILE. SPACE AND SKIP ENTRIES ARE IGNORED FOR 
ALL RECORDS OF NAMED FILE, 

NUMBER OF LINESOF OUTPUT EXCEEDS THE CAPACITY OF RPG, 
MAXIMUM NUMBER IS 1023. EXECUTION IS DELETED. 

IMPROPER USE OF PACKING OR ZERO SUPPRESSION ON ALPHA- 
NUMERIC OR PACKED FIELD. ENTRY OF BLANK IS ASSUMED FOR 
INVALID CODE. 

END POSITION SPECIFIED FOR THE FIELD IS GREATER THAN 
THE RECORD LENGTH. ALL OR PART OF THE FIELD ISLOST, 
STARTING WITH THE RIGHTMOST POSITION. 

END POSITION IS LESS THAN THE FIELD LENGTH. FIELD IS NOT 
PROCESSED. 

FIELD TO BE EDITED IS GREATER THAN THE EDIT WORD. 
RIGHTMOST DIGITS WILL BE LOST. 










UP-7707 


wey NOTE 232 
NOTE 233 


NOTE 234 
NOTE 235 
NOTE 236 
NOTE 237 


NOTE 238 





UNIVAC 9400 
REPORT PROGRAM GENERATOR 












Appendix F ji 


SECTION: 


FIELD TO BE EDITED IS NOT NUMERIC. NO EDITING IS PERFORMED. 
STERLING SIGN POSITION IS SPECIFIED AS OTHER THAN NORMAL 
FOR PRINTED LINE. NORMAL POSITION IS ASSUMED. 

LOCATION FOR STERLING SIGN EXCEEDS RECORD LENGTH. 
NORMAL POSITION FOR SIGN IS ASSUMED. 

STERLING FIELD IS SPECIFIED WITH DECIMAL LENGTH GREATER 
THAN THREE. FIELD IS NOT PROCESSED. 

STERLING FIELDS MAY BE EDITED ONLY FOR PRINT FILES. NO 
EDITING IS PERFORMED. 

STERLING FIELD IS SPECIFIED WITH MORE THAN NINE POUNDS 
POSITIONS. LEFTMOST DIGITS WILL BE LOST. 

MAXIMUM NUMBER OF EXTERNAL SYMBOLS (EXIT SUBROUTINES, 
ULABL ENTRIES, ANDLABEL EXITS) HAS BEEN EXCEEDED. 
EXECUTION IS DELETED. 
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APPENDIX G. USER CODED 
SUBROUTINES AND 
USE OF RPG AS 
A SUBROUTINE 


Gl. INTRODUCTION 


This Appendix deals with the following four topics: 


wm User-coded EXIT subroutines 


— m User-coded ALTSEQ subroutines 


m User label processing subroutines 
w Using RPG object programs as subroutines 


In the discussion, familiarity with UNIVAC 9400 System Assembler Language pro- 
gramming is assumed (see UNIVAC 9400 System Assembler/Central Processor Unit 
Programmers Reference, UP-7600 (current version)). 


G2. USER-CODED EXIT SUBROUTINES 


The EXIT operation is coded in the Calculation Specifications to permit the execution 
of user-coded subroutines at detail or total time. The subroutines may be written in 
assembler language, RPG, or (with some restrictions) in FORTRAN or COBOL, and 
must be compiled separately. Before execution, the RPG object program and all sub- 
routines must be linked together by the Linkage Editor to form a single load module. 
If more than one subroutine is present in the load module and the program is to be 
executed on a system with storage of at least 32,768 bytes, the user may specify that 
the Linkage Editor create a load module with overlay structure, so that the various 
subroutines are in storage only when required and occupy the same locations, thus 
reducing overall storage requirements. 


When RPG passes control to an assembly language subroutine, certain conventions 
must be observed in the use of the general registers. 
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Upon entry to the subroutine: 


Register 15 contains the address of the first executable instruction of the 
subroutine. (The name of this instruction should be the same as or equivalent 
to the name specified as factor 2 of the EXIT statement. The factor 2 

name should appear in the subroutine as the name of a START or CSECT 
statement or as the operand of an ENTRY statement.) 


Register 14 contains the address to which the subroutine must branch when 
its processing is finished. 


Register 13 contains the address of an 18-word area (aligned on a fullword 
boundary) in which the subroutine may save the contents of any or all 
registers. 


When processing is finished, and the subroutine has returned control to RPG, the 
contents of registers 2 through 13 must be the same as they were at the time of 
entry. The contents of other registers need not be the same. The SAVE and RETURN 
macro instructions may conveniently be used for properly saving and restoring all 
registers, except 13, and returning to RPG (see Figure G-1, Register Conventions 
for an EXIT subroutine). 


Note that no input or output operations affecting files used by the main RPG program 
are permitted in the subroutine. 


Fields defined in RPG may be used in an assembler language subroutine if they are 

specified in RLABL statements in RPG and in EXTRN statements in the subroutine. 
Fields defined in the subroutine may be used in RPG if they are specified in ULABL 
statements in RPG and in ENTRY statements in the subroutine. Numeric fields in — 

RPG are always stored in packed decimal format. 


Any RPG program indicator may be tested, set, or reset by a subroutine. Each in- 
dicator occupies one byte in storage; the set (on) value is X‘FO’ and the reset (off) 
value is X’00’. An indicator has a name of the form INxx (such as, INHO, IN94, or 
IN1P), which must be specified in an RPG RLABL statement and a subroutine 
EXTRN statement. 


An EXIT statement may be used to call a COBOL or FORTRAN subroutine, and is 
subject to the usual restriction on input and output operations. Parameters cannot be 
passed directly to such a subroutine. To use a parameterized COBOL or FORTRAN 
subroutine, the user must include in the load module an additional, short assembler 
language subroutine to receive control from RPG and to call and pass parameters to 
the higher level language subroutine. 
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Figure G-1l. Register Conventions for an EXIT Subroutine 


Example: 


— A FORTRAN subroutine named COMP calculates compound interest from four 
parameters: principal, annual rate of interest, number of interest periods per year, 
and number of years. Four RPG fields, containing appropriate parameter values, are 
defined in RLABL statements. The subroutine in Figure G-2 passes those parameters 
to the FORTRAN subroutine. 


Data passed to FORTRAN ‘subroutines must conform to FORTRAN standards (see 
UNIVAC 9400 System FORTRAN Supplementary Reference, UP-7693 (current 
version)). Integer constants must be specified with a length of 9 in RPG. Real 
constants cannot be processed or printed by RPG. Subroutine results should be 
passed back to the main program by redefining formal parameters. Thus, in the ex- 
ample given, it is assumed that the result is assigned to the first parameter (PRIN). 


All numeric and alphanumeric fields in an RPG program can also be processed in a 
COBOL subroutine. RPG indicators should be described in the COBOL Linkage 
Section as PICTURE X. An indicator is set by using MOVE ZERO..., and reset by 
using MOVE LOW-VALUE... . 
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G3. USER-CODED ALTSEQ SUBROUTINES 


If the user enters an A in Column 26 of the RPG control card (see Appendix E), the 


RPG object program calls a special user subroutine each time a record with matching 
fields is read. In such a subroutine the user can: 


change the collating sequence of the matching fields (by translating the data in the 
matching fields hold area) before sequence checking of records takes place; 


do any other processing of the matching fields hold area; or 
do any desired processing of any input record fields before control or chaining 


fields are processed and before the data is made available for detail calculations 
and output. 


The following rules apply: 


The subroutine should be written in assembler language. 
The entry point of the subroutine must have the name ALTSEQ. 


The subroutine must be linked with the RPG object program and any other sub- 
routines before execution by the Linkage Editor. Automatic overlay is possible on 
systems of at least 32,768 bytes (see G2 for discussion of EXIT subroutines). 
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Figure G—2, EXIT Subroutine to Call a FORTRAN Subroutine ee 
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m RLABL and ULABL statements in the RPG program may be used in conjunction with 


EXTRN and ENTRY statements in the ALTSEQ subroutine in the same manner as in 
an EXIT subroutine. 


m Conventions for saving and restoring registers are identical to those for EXIT sub- 


routines (see G2), Registers 13 and 14 at entry to the ALTSEQ subroutine contain the 
values specified for EXIY subroutines. In addition: 


— Register 15 contains the address of the entry point of the ALTSEQ subroutine. 


— Register 1, bits 0-7, contains the total length of the matching fields minus one, 
occurring in this record. 


— Register 1, bits 8-31, contains the address of the high order byte of the matching 
fields hold area. 


- Register 0 contains the address of the first byte of the input record. (For 
variable-format records, this is the first byte following the four-byte record 
length control field). 


a Record identification codes in the input record can be changed; however, record 
identification is made before the ALTSEQ subroutine is called and is not changed 
by any alteration of the codes. 


USER LABEL PROCESSING SUBROUTINES 


User subroutines are required for processing user header and trailer labels on tape or 
disc files or nonstandard labels on tape files. Rules for coding these subroutines may 
be found in UNIV AC 9400 System Data Management System Programmers Reference, 
UP-7629 (current version). The following additional points should be noted: 


m The subroutines must be written in assembler language. 


m The name of the entry point of each subroutine must correspond exactly to the 
names given in Columns 54-59 of the File Description Specifications form. 


mw The subroutines must be linked with the RPG object program and other subroutines 
before execution by the Linkage Editor. Automatic overlay of label subroutines is 
not possible. 


m RLABL and ULABL statements in the RPG program may be used in conjunction 
with EXTRN and ENTRY statements in the label subroutine in the same manner as 
in an EXIT subroutine. 


USING RPG OBJECT PROGRAMS AS SUBROUTINES 


The object program output of an RPG compilation can be used as a subroutine if an S 
is coded in Column 74 of the RPG control card (see Appendix E). (A subroutine pro- 
duced in this way cannot also be used as a-main program.) When an RPG subroutine 
is called, it opens all files and does all processing specified before returning to the 
calling program. 
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The standard register usage conventions are observed by the RPG object program: 


m At entry, registers 15, 14, and 13 must be initialized as follows: 


Register 15 must contain the address of the entry point of the ‘subroutine. 
(The name of the entry point is the same as that coded in Columns 75-80 
of the RPG control card, or must be RPGOBJ if Columns 75-80 are blank.) 


Register 14 must contain the return address of the calling program. 


Register 13 must contain the address of an (aligned) 18-word register save 
area, 


= The RPG subroutine saves all registers except register 15. Upon return to the 
calling programs, register 15 contains binary 0 if the subroutine ended normally, 
binary 4 if a user halt indicator (H1-H9) was set, or binary 8 if the RPG hold in- 
dicator (HO) was set. 
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APPENDIX H. TAG FILES 


INTRODUCTION 


A tag file is a sequentially organized input file used to obtain random access to 
records from a second input file (the ‘‘data file’’) on disc. Only one tag file may be 
specified in a program, and if a tag file is specified, a record address file may not 
be specified. 


A tag file may be on cards, tape, or disc, and must be sequential. The data file must 
be on disc, and may have sequential or direct organization. 


ENTERING TAG FILE INFORMATION ON RPG SPECIFICATION FORMS 


The user identifies the tag and data files in his program on three specification forms 
as follows: 


(1) File Description Specifications 


Tag File: I - file type - Column 15 
R - file designation - Column 16 
Blank - mode of processing - Column 28 


10 - length of record address field - Columns 29-30 

Blank - record address type - Column 31 

T - type of file organization - Column 32 

E - extension code - Column 39 
Data File:I - file type - Column 15 

P or S- file designation - Column 16 

R - mode of processing - Column 28 


Blank - length of record address field - Columns 29-30 


I or R - record address type - Column 31 
D - type of file organization - Column 32 
E - extension code - Column 39 


(2) File Extension Specifications 


Tag File: enter file name in Columns 11-18. 
Data File: enter file name in Columns 19-26. 


(3) Input Specifications 


Tag File: no entry necessary. 
Data File: enter file name in Columns 7-14. 


NOTE: A data file only may be chained to one or more indexed sequential files. In 
such a case, the extension code of the data file (File Description, Column 
39) must be E, and File Extension Specifications for chaining should be in- 
cluded as usual (see 6.2.2). 
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H3. TAG FILE FORMATS 





Each record of a tag file contains one or more entries of ten bytes each. Each entry 
contains a pointer to a logical record of the data file. At execution time, when a new 
record is to be obtained from the data file, the next sequential entry in the tag file 

is examined, and this entry is used to locate and read the required data record. Thus, 
for instance, an unsorted disc file can be processed in sorted sequence by means of 
an associated tag file that contains entries which correspond to the desired order of 
processing. The first entry should contain a pointer to the first data record to be 
processed, and so forth. 


Tag file entries have the following format: 


(1) Each entry contains ten bytes (number 0-9) that are divided into two parts, 


bytes 0-7: block address 
bytes 8-9: logical record pointer 


(2) The block address may have either of two formats: physical disc track address or 
relative block. Column 31 of the File Description form indicates which format the 
RPG compiler is to process, an I for physical disc track address, or an R for 
relative block number. 


(a) Physical disc track address (I): 


byte 0 = logical unit number (X’00’ — X’03’) 

bytes 1-2 = X’0000’” 

bytes 3-4 = cylinder number (X’0000’ ~— X’0007’) 

bytes 5-6 = head number (X’0000’ — X’0009’) 

byte 7 = sequential number of the block on the track (X’01’ — X’FF’) 


(b) Relative block number (R): 


bytes 0-3 = X’00000000’ 

bytes 4-7 = relative block number of the block to be accessed in the file 
(X’00000001’ - X’FFFFFFFF’; the number of the first block 
in the file is 1) 


(3) The logical record pointer is the displacement in bytes (relative to zero) of the 
desired record within the block identified by bytes 0-7. This pointer always refers 
to the first byte within the record, and therefore, for variable format files, to the 
beginning of the four-byte record length field which precedes every logical record. 


i 
In the particular case of unblocked files: 


bytes 8-9 = X’0000’ for fixed format files 

bytes 8-9 = X’0004’ for variable format files (since a four-byte block 
length field for the whole block precedes the record length 
field of the first record of all variable format files). 


(4): If bytes 0-7 of any entry are all blanks, this and all remaining entries of the current 
tag file record are skipped, a new record is read from the tag file, and processing 
resumes with the first entry of the new record. 
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